複数シートの特定箇所に同じ文字列を設定するマクロ

複数シートの特定箇所に同じ文字列を設定

Sub macro1()

'すべてのシートを選択（非表示シートがあると失敗する）
Sheets.Select

'A1セルを選択
Range("A1").Select

'アクティブなセルに「はてな」をセット
ActiveCell.Value = "はてな"

'シート１を選択（シートの複数選択を解除）
Sheets(1).Select

End Sub