Try some code like the following:


Dim WS As Worksheet
On Error Resume Next
Set WS = Worksheets("TheSheetName")
If WS Is Nothing Then
Set WS = Worksheets.Add
WS.Name = "TheSheetName"
End If
WS.Select


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




wrote in message
...
How would I code, if there is worksheet titled something,
select it. If there isn't a worksheet titled that,
create it? Thank you.