Creating new excel sheets with Vb

[zwappy]

I´m trying to create a workbook with a lot off sheets in. If a specific sheet does not exist, a new should be added. Anyone whith an idea?
Everything in Vb

[alex_read]

 '#### IN THE WORKBOOK ####
Public ShtCount As Integer
'Set up a integer variable to keep track of the workbooks
'number of sheets - declaring this publically means that this
'variables accessible to all the subs through out the project
'the worksheet and related worksheets

Private Sub Workbook_Open()
 'when this workbook first opens ...
    ShtCount = Worksheets.Count
     'set the value of our integer variable to the
    'count of the number of worksheets
End Sub

 '#### IN THE WORKSHEET #### 
Private Sub Command1_Click()
    If Worksheets.Count < ShtCount Then
        Worksheets.Add
        Worksheets(ShtCount).Select
         'add a new worksheet and select it
        ShtCount = ShtCount + 1
         'update our number count of sheets by 1
    End If
End Sub