come sempre thx nicoO.
posto:

codice:
For Each ws In Worksheets               'per ogni ws (=foglio) excel presente nell'insieme di fogli (=worksheet)
    If Mid(ws.Name, 1, 1) = "." Then    'se il nome del foglio (ws.Name) ha come prima lettara il "."
        foglio = Mid(ws.Name, 2)        'definisco foglio = ...
        ComboBox3.AddItem foglio        'Aggiungo in combobx tutti i fogli con il "." senza il punto nel testo
    End If
Next
P.S.: certe volte le funzioni nn le ricordo prorpio... :master:
P.P.S.: N.P. fai con comodo

thx