wer kann mal schauen
habe von Ingolf einen code bekommen der aber eine typenunverträglichkeit aufweist
siehe beispielsdatei
https://www.herber.de/bbs/user/36474.xls
Private Sub CommandButton1_Click()
Sheets(ActiveSheet.ListBox1.Value).Visible = xlSheetVisible
End Sub