全ワークシートのアクティブセルをホームに移動するマクロ

Pocket

Excelファイルを他人に渡すときなどに、アクティブセル(カーソル)がホーム(A1セル)にあると整った印象を与えます。
しかしシートがたくさんあると面倒です。
そこで考えたのが、編集中のExcelファイルのすべてのワークシートのアクティブセルをホームに移動するマクロです。

Sub 全ワークシートのアクティブセルをホームに移動()
    Dim myWS As Worksheet
    For Each myWS In Worksheets
        myWS.Select
        Range("A1").Select
    Next
End Sub

[ 2011年8月9日 | カテゴリー: Excel | タグ: , ]

« | »

コメントを残す

メールアドレスが公開されることはありません。

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報