Public Sub Main()
For i = 1 To Sheets.Count' Provides a count of all worksheets
    If TypeName(Sheets(i)) = "Worksheet" Then' Gives the type of worksheet
        Sheets(i).Name' Provides the name for the worksheet
        Sheets(i).Select' Selects the particular worksheet
    End If
Next
End Sub