codice:
....
For Each fogli In Worksheets
    If Mid(fogli.Name, 1, 1) = "." Then
        ...............
    End If
Next fogli
....
P.S. Non ho avuto ancora modo di provare il codice che mi hai mandato. Sorry.