Why is this an error?

[davegb]

The following code I copied from a book. But I always get the error
message when I select the data range in the refedit control and click
OK. Why is it never correct?

Private Sub OKButton_Click()
On Error Resume Next
Set rColHdr = Range(reDataStrt.Text)
If Error <> 0 Then
MsgBox "Invalid range selection, please select the starting range
again."
On Error GoTo 0
Exit Sub
End If
uf1021Mid.Hide
End Sub

Thanks!

 

[Doug Glancy]

davegb,

Change "Error" to "Err" and I belive it will work.

hth,

Doug

 

[davegb]

davegb,

Change "Error" to "Err" and I belive it will work.

hth,

Doug

Thanks, Doug!