verkorten opdracht in VBA

[Egbert12345]

Hoi, zie s.v.p. onderstaande macro

Workbooks("test.xlsm").Activate
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
Application.DisplayFormulaBar = False

Ik wil graag de tekst verkorten zodat de macro niet naar het betreffende blad gaat Met DisplayFormulaBar is mij dat wel gelukt, kan dat ook met DisplayWorkbookTabs bijvoorbeeld zodat ik With en End With kan overslaan?

Workbooks("test.xlsm").Application.DisplayFormulaBar = False

 

[edmoor]

Dit zou voldoende moeten zijn:

Workbooks("test.xlsm").Activate
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False

 

[AccessGuru]

Wat mankeert er aan

    Workbooks("test.xlsm").Activate
    With ActiveWindow
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
    End With
    Application.DisplayFormulaBar = False

a. is het korter (137 tekens om 138 tekens, dat wou je toch?),
b. staat het overzichtelijker en
c. is het een stuk makkelijker als je per object (ActiveWindow) meerdere acties wilt vastleggen. Zeker als je IntelliSense gebruikt.

 

[snb]

of

With Windows("test.xlsm")
  .DisplayWorkbookTabs = False
  .DisplayHeadings = False
End With
Application.DisplayFormulaBar = False