Scrollbars je Sheet aktivieren

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If ActiveSheet.Range("abgefragte Zelle") = "Bedingung erfüllt" Then
ActiveWindow.DisplayHorizontalScrollBar = False
Else
ActiveWindow.DisplayHorizontalScrollBar = True
End If
End Sub

Leider funktioniert das nicht so wie ich es mir vorstelle. Ich möchte gern zwischen den Sheets einer Arbeitsmappe hin und her schalten können und dabei jeweils je Sheet nach Bedarf die ScrollBar automatisch aktivieren bzw. deativieren lassen.
Kann mir dabei jemand auf die Sprünge helfen?
Danke schonmal im Voraus.
Grüße,
Marc Richter