Move cursor to A1 in all worksheets, relocate A1 to top right, sav
 

Is there a macro out there that performs these functions?
1. groups all worksheets in a workbook,
2. moves cursor to A1,
3. relocates A1 to top right of screen,
4. changes all pages to normal view,
5. Ungroups worksheets, and
6. Saves file

Move cursor to A1 in all worksheets, relocate A1 to top right, sav
 

This should be close...

Sub FormatSheets()
Dim wks As Worksheet

For Each wks In Worksheets
If wks.Visible = xlSheetVisible Then
wks.Select
With wks.Range("A1")
.Select
.Show
End With
ActiveWindow.View = xlNormalView
End If
Next wks
ThisWorkbook.Save
End Sub
--
HTH...

Jim Thomlinson


"Emangino" wrote:

Is there a macro out there that performs these functions?
1. groups all worksheets in a workbook,
2. moves cursor to A1,
3. relocates A1 to top right of screen,
4. changes all pages to normal view,
5. Ungroups worksheets, and
6. Saves file