use ISError when using a defined name - correct syntax?

[jxb]

to all

I rather than hardcoding a column in my vba script I am using a defined name to get the column using
iRefCol=Range("RF1RefCol").Column)
where RF1RefCol is the defined name

this works fine
I now want sto capture the possibility of the define nam enot existing in the xls (deleted by user, name changed, etc)
the following does not seem to work

If IsError(iReFCol = Range("RF1RefCol").Column) then
'do something about it!
end if

Any suggestions/ideas? Thanks

Regards

JXB

 

[Andrew Poulsom]

Does this work for you?

Sub Test()
    Dim iRefCol As Long
    On Error Resume Next
    iRefCol = Range("RF1RefCol").Column
    If Err <> 0 Then
        Err.Clear
        MsgBox "Error"
    Else
        MsgBox "OK"
    End If
    On Error GoTo 0
End Sub

 

[jxb]

Andrew,

The solution proposed does the job. Thanks a lot

Regards
JXB