search for worksheet, insert new if doesn't exist

[cereldine]

Im opening up a workbook and then selecting a worksheet based on
string variable like so (wsI is worksheet variable, sYear is searc
criteria)

Set wsI = Sheets(sYear)

I would like to improve this so that if the worksheet does not exist
insert a new one and then rename it to my search variable, i though
something along the lines of the below would work but it hasn't!
guess the 0 is the wrong thing to look for, any help appreciated

If Sheets(sYear) = 0 Then
Sheets.Add
ActiveSheet.Name = sYear
Else
Set wsI = Sheets(sYear)
End I

 

[Guest]

Here is a function that tells you if a sheet exists in a given workbook

Public 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

If sheetexists(sYear) Then
Set wsI = Sheets(sYear)
Else
Sheets.Add
Set wsI = Activesheet
wsI.Name = sYear
End If

 

[Bob Phillips]

On Error Resume Next
Set wsI = Worksheets(sYear)
On Error GoTo 0
If wsI Is Nothing Then
Worksheets.Add.Name = sYear
Set wsI = Worksheets(sYear)
End If

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)