セルをA1に揃えるExcelVBAの作成＋アドイン化

ExcelVBAの作成

Excelを新規作成しVisual Basicを開き、以下のコマンドを張り付ける

Module1

Sub　my_addin()
    Dim left_sheet As Worksheet
    Dim all_sheet As Worksheet
    Set left_sheet = Worksheets(1)
    For Each all_sheet In Worksheets
        all_sheet.Select
        all_sheet.Range("A1").Select
    Next
    left_sheet.Select
End Sub

アドイン化

保存場所

ExcelファイルをExcelアドイン(*.xlam)形式で以下ののフォルダに保存する
%userprofile%\AppData\Roaming\Microsoft\AddIns
※ファイル形式を選択するとフォルダは自動的に選択される

信頼できる場所の追加

Excelメニューの[ファイル]→[オプション]→[トラストセンター]→[信頼できる場所]に移動する
[新しい場所の追加]からアドインの保存場を追加する

アドインの追加

Excelメニューの[開発]→[Excelアドイン]に移動する
作成したアドインに☑を入れ[OK]をクリックする