Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code that checks if a sheet exists
I use the following code to check if a worksheet exists. It works OK if the
worksheet does exist, However, if the worksheet does not exist, then the "Set" statement gives a "Subscript out of range" error. Can someone please help? Thanks. Sub checkit () Dim NewTabName As String, WkSht As Worksheet NewTabName = "1-23-04" Set WkSht = Workbooks(CurBookName).Worksheets(NewTabName) If Not WkSht Is Nothing Then MsgBox "The worksheet exists" Else Workbooks(CurBookName).Activate Workbooks(CurBookName).Sheets.Add.Name = NewTabName End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
check if sheet exists | Excel Discussion (Misc queries) | |||
Micro that checks if file exists | Excel Worksheet Functions | |||
Sheet name already exists | Excel Discussion (Misc queries) | |||
How can I know if a sheet exists ? | Excel Programming | |||
check if sheet exists | Excel Programming |