提出前の整形にご使用ください。
Sub CursorA1()
'
' CursorA1 Macro
'
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Range("A1").Select
Next Ws
Worksheets(1).Activate
ActiveWorkbook.Save
End Sub
More than 1 year has passed since last update.
提出前の整形にご使用ください。
Sub CursorA1()
'
' CursorA1 Macro
'
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Range("A1").Select
Next Ws
Worksheets(1).Activate
ActiveWorkbook.Save
End Sub
Register as a new user and use Qiita more conveniently