+ Reply to Thread
Results 1 to 2 of 2

for each sheet

  1. #1
    Forum Contributor
    Join Date
    12-20-2006
    Posts
    127

    for each sheet

    i would like to apply the below for each sheet in my workbook when i open it

    i now how to apply this to the open workbook command i really need the code to loop for each sheet

    With ActiveWindow
    .DisplayHeadings = False
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
    .DisplayWorkbookTabs = False
    End With

  2. #2
    Forum Contributor
    Join Date
    07-13-2006
    Posts
    400
    Quote Originally Posted by jtwork
    i would like to apply the below for each sheet in my workbook when i open it

    i now how to apply this to the open workbook command i really need the code to loop for each sheet

    With ActiveWindow
    .DisplayHeadings = False
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
    .DisplayWorkbookTabs = False
    End With
    by leaving your original code:

    Sub something()
    Dim i As Integer
    For i = 1 To Worksheets.Count
    Worksheets(i).Select
    With ActiveWindow
    .DisplayHeadings = False
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
    .DisplayWorkbookTabs = False
    End With
    Next i
    End Sub
    --Mark

    Quantum materiae materietur marmota monax si marmota monax materiam possit materiari?

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1