Excelマクロ教えてください。

質問

いつも大変お世話になっております。
あるシートにあるフォントのすべてをＭＳゴシックにしたいのですが、
マクロ記録→全選択してフォント変更→記録解除
で下記のマクロができました。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/11/21 ユーザー名 : TEST
'

'
Cells.Select
With Selection.font
.Name = "ＭＳ ゴシック"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

全選択せずに、あるシートすべてのフォントを変更する方法はありますか？
シートのフォントを変更するだけの目的です。
よろしくお願いします。

回答No.1

higekuman · ベストアンサー

Cells.font.Name = "ＭＳ ゴシック"

でどうでしょうか？

お礼

あらら、そんな簡単なことだったんですね。
どうもありがとうございました。

回答No.2

imogasi

(1)１つのシートに対しては、Fint.Nameプロパティは許されていない。
Rangeオブジェクト〔その他）のプロパティのみのようです。
その他にはSheet（ｓ）は無い。
（２）全般ならツールーオプションー全般ー標準フォントがある。
マクロの記録を採れる。
Cellsを避ける意味がわからない。

お礼

ありがとうございます。