Test if sheet exits, create with name if not

[bramweisman]

I have some code that successfully imports data into worksheets. I hav
a variable HOTSHEET that contains the text string from a certain cell.
How can I test to see if this sheet exits, and if not create one wit
the proper name. I saw Tom Oglvy's response to Steph on a simila
subject but couldn't really make sense of it in this context

 

[Ron de Bruin]

Hi Bram

Copy the function and the macro in a normal module

Function SheetExists(sname As String, _
Optional ByVal WB As Workbook) As Boolean
'Chip Pearson
On Error Resume Next
If WB Is Nothing Then Set WB = ThisWorkbook
SheetExists = CBool(Len(WB.Sheets(sname).Name))
End Function

Sub Test()
Dim HOTSHEET As String
HOTSHEET = "test"
If SheetExists(HOTSHEET) = False Then
Sheets.Add.Name = "test"
Else
'do nothing
End If
End Sub

 

[Bob Phillips]

One way

Sub CreateIt()

If Not SheetExists("mySheet") Then
Worksheets.Add.Name = "mySheet"
End If

End Sub

'-----------------------------------------------------------------
Function SheetExists(Sh As String, _
Optional wb As Workbook) As Boolean
'-----------------------------------------------------------------
Dim oWs As Worksheet
If wb Is Nothing Then Set wb = ActiveWorkbook
On Error Resume Next
SheetExists = CBool(Not wb.Worksheets(Sh) Is Nothing)
On Error GoTo 0
End Function

 

[Ron de Bruin]

Oops

Use this

Sheets.Add.Name = HOTSHEET


--
Regards Ron de Bruin
http://www.rondebruin.nl

Hi Bram

Copy the function and the macro in a normal module

Function SheetExists(sname As String, _
Optional ByVal WB As Workbook) As Boolean
'Chip Pearson
On Error Resume Next
If WB Is Nothing Then Set WB = ThisWorkbook
SheetExists = CBool(Len(WB.Sheets(sname).Name))
End Function

Sub Test()
Dim HOTSHEET As String
HOTSHEET = "test"
If SheetExists(HOTSHEET) = False Then
Sheets.Add.Name = "test"
Else
'do nothing
End If
End Sub

 

[Don Guillett]

try this. It will make it if if does not exist.

Sub namenewsheet()
Dim ns As Worksheet
myname = "mynewsheetname"
'myname=range("d1").value
On Error Resume Next
Set ns = ActiveWorkbook.Worksheets(myname)
On Error GoTo 0
If sht Is Nothing Then Sheets.Add.Name = myname
End Sub