Vba help remove gridlines

[Hiport]

Hi, i want to remove gridlines from all worksheets, i ran a macro but the macro gave me activewindow, how can i get the code to run through all worksheets

.DisplayGridlines = False

 

[jproffer]

Sub nogrids()
    For Each Sheet In Sheets
       Sheet.Activate
       ActiveWindow.DisplayGridlines = False
    Next Sheet
End Sub

 

[Hiport]

Ok, can the below be amdended so that all gridlines to be removed for all sheets after sheet Rawdata

Sub nogrids()
    For Each Sheet In Sheets
       Sheet.Activate
       ActiveWindow.DisplayGridlines = False
    Next Sheet
End Sub

 

[jproffer]

To take the grid off of all sheets except Rawdata:

Sub nogridsexceptdata()
    For Each Sheet In Sheets
       If Sheet.Name <> "Rawdata" Then
          Sheet.Activate
          ActiveWindow.DisplayGridlines = False
       End If
    Next Sheet
End Sub

or to take the grid off of all sheets AFTER (to the right of) Rawdata

Sub nogridspastdata()
shcount = Sheets.Count
datacount = Sheets("Rawdata").Index
    For i = datacount + 1 To shcount
          Sheets(i).Activate
          ActiveWindow.DisplayGridlines = False
    Next i
End Sub

 

[GTO]

I like jproffer's better, as it doesn't bother running thru the sheets up to/inclusive of RawData. Just in case you are already using a For Each...

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br>    <br><SPAN style="color:#00007F">Sub</SPAN> exa()<br><SPAN style="color:#00007F">Dim</SPAN> wks <SPAN style="color:#00007F">As</SPAN> Worksheet<br><SPAN style="color:#00007F">Dim</SPAN> wksCurrent <SPAN style="color:#00007F">As</SPAN> Worksheet<br><SPAN style="color:#00007F">Dim</SPAN> bolRightOfRawData <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN><br>    <br>    <SPAN style="color:#00007F">Set</SPAN> wksCurrent = ActiveSheet<br>    <br>    Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN><br>    <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> wks <SPAN style="color:#00007F">In</SPAN> Worksheets<br>        <SPAN style="color:#00007F">If</SPAN> bolRightOfRawData <SPAN style="color:#00007F">Then</SPAN><br>            wks.Select<br>            ThisWorkbook.Windows(1).DisplayGridlines = <SPAN style="color:#00007F">False</SPAN><br>        <SPAN style="color:#00007F">Else</SPAN><br>            bolRightOfRawData = wks.Name = "RawData"<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN><br>    wksCurrent.Select<br>    Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Mark

 

[Hiport]

Thanks this works

To take the grid off of all sheets except Rawdata:

Sub nogridsexceptdata()
    For Each Sheet In Sheets
       If Sheet.Name <> "Rawdata" Then
          Sheet.Activate
          ActiveWindow.DisplayGridlines = False
       End If
    Next Sheet
End Sub

or to take the grid off of all sheets AFTER (to the right of) Rawdata

Sub nogridspastdata()
shcount = Sheets.Count
datacount = Sheets("Rawdata").Index
    For i = datacount + 1 To shcount
          Sheets(i).Activate
          ActiveWindow.DisplayGridlines = False
    Next i
End Sub