Testing for Named Ranges
This will test for names in workbook:
Sub names()
Dim n As String
Dim s As name
n = "Table1"
For Each s In ThisWorkbook.names
If s.name = n Then MsgBox ("Found " & n)
Next s
End Sub
Mike F
"Conan Kelly" <CTBarbarin at msn dot com wrote in message
...
Hello all,
I had this macro that deleted the Named Range "Table1" at the beginning of
it and then redefined it (added it) and the end of the code.
The problem is that one time through the code, it hit a snag. So after I
stopped execution, Table1 is was no longer defined. The very next time
through the code, it snagged on deleting Named Range "Table1".
How would I test to see if the named range even exists before I try to
delete it?
Thanks for any help anyone can provide,
Conan Kelly
|