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