Hallo Tor,

super lieb von dir, wirklich vielen Dank. Hab eben auch noch eine Möglichkeit gefunden, die aber nicht so elegant ist mit:

Private Sub Worksheet_Calculate()
For i = 11 To 100
    Columns(i + 12).Hidden = Rows(i).Hidden
Next i
End Sub

Muss ich in jedem Arbeitsblatt die Zufallszahl einbringen, oder reicht es wenn es in einer ist?

Ach ja, dein Code funktioniert einwandfrei!