Sub MoveA1andZoom100()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Select
ws.Activate
ActiveWindow.Zoom = 100
ws.Range("A1").Select
Next
Sheets(1).Select
End Sub
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme