Ich habe eine ListBox.mit dieser werden Sheets zB a,B usw.. eingeblendet.
Das funkt.auch.
Nun möchte ich aber das ALLE Sheets von A-Z auf einmal eingeblendet werden.
Könnte mir dazu bitte jemand weiterhelfen.
Gruß
Heinz
If ListBox1.Text = "A-Z" Then
ActiveSheet.Protect
Sheets("A,B,C").Visible = True
'Sheets("A,B,C").Activate
Unload Me
End If