Application.Goto Reference gets error 1004

[cellist]

I get "Run-time error 1004, Reference is not valid" when I execute
Application.Goto Reference:="AccountAbbreviations"
Selection.ClearContents
The name "AccountAbbreviations" is, in fact, not defined. How can I check
for not defined so that the code can continue?

TIA,

Phil

 

[JE McGimpsey]

One way:

Dim rTest As Range
On Error Resume Next
Set rTest = ActiveWorkbook.Names( _
"AccountAbbreviations").RefersToRange
On Error GoTo 0
If Not rTest Is Nothing Then rTest.ClearContents

 

[Chip Pearson]

Try

Application.Goto Range("AccountAbbreviations"),True

Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

 

[PhilRichcreek]

One way:

    Dim rTest As Range
    On Error Resume Next
    Set rTest = ActiveWorkbook.Names( _
            "AccountAbbreviations").RefersToRange
    On Error GoTo 0
    IfNotrTest Is Nothing Then rTest.ClearContents

   In article <[email protected]>,





- Show quoted text -

thanks JE

 

[PhilRichcreek]

Try

Application.Goto Range("AccountAbbreviations"),True

Cordially,
Chip Pearson
Microsoft MVP
   ExcelProduct Group
Pearson Software Consulting, LLCwww.cpearson.com
(email on web site)



- Show quoted text -

thanks Chip.