Using For Next to reset Pge Brk Preview on all sheets
I am trying to reset the following for each worksheet in
the workbook; however am getting errors on
the "Window.View = xlNormalView" (I am am trying to learn
the Object Model)Similar iss below w/ resetting pointer
Reset "Page Break Preview" for each worksheet in the
workbook; so view is set to "Normal" on each worksheet
Sub Set_Page_Preview_Normal()
For Each wks In Worksheets
Window.View = xlNormalView
Next wks
End Sub
' Reset Cell pointer in worksheet so view is at top of
page on each worksheet
Sub Set_Cell_Pointer_A1()
For Each wks In Worksheets
wks.Range("A1").Select
Next wks
End Sub
|