vba2003: controllare se esiste un foglio e crearlo

[karug64]

Salve a tutti.
Rieccomi qui.
Potreste dirmi come si fa da codice vba a controllare se un foglio esiste (per es. "foglio2011") e se non esiste come si fa a crearlo.
Grazie.

[Flash30005]

Una macro che risolve il quesito potrebbe essere questa

Codice: Seleziona tutto

Sub Creafogli()
NomeF = "Foglio2011"  '<<<<<<<<<< qui assegni il nome al foglio
For I = 1 To Worksheets.Count
    If Sheets(I).Name = NomeF Then Exit Sub  '<<<<< se il foglio esiste esce dalla routine
 Next I
Sheets.Add After:=Worksheets(Worksheets.Count)  '<<<<<<<<< sposta il foglio alla fine dei fogli esistenti
ActiveSheet.Name = NomeF   '<<<<<<< assegna il nome al nuovo foglio
End Sub

Ciao

[karug64]

Grazie.