Esempio.

codice:
Sub foglio_esiste()

Dim foglio As Worksheet
Dim trovato As String

trovato = "Il foglio non esiste"

For Each foglio In Worksheets
    If foglio.Name = "Foglio3" Then
        trovato = "Il foglio esiste"
    End If
Next foglio

MsgBox trovato

End Sub