sheetname = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
ThisWorkbook.Worksheets(sheetname).Activate
Function sheetexist(whatsheet)
On Error GoTo NotExists
ThisWorkbook.Worksheets(whatsheet).Select
sheetexist = True
Exit Function
NotExists:
sheetexist = False
End Function
sheetname = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
doesitExist = sheetexist(sheetname)
if doesitexist then
ThisWorkbook.Worksheets(sheetname).Activate
end if
Sub makesheet(whatsheet)
On Error GoTo ExitSub
With ThisWorkbook
.Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = whatsheet
End With
ExitSub:
End Sub
sheetname = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
doesitexist = sheetexist(sheetname)
If doesitexist Then
ThisWorkbook.Worksheets(sheetname).Activate
Else
makesheet (sheetname)
End If
DON'T MISS