既存のマクロにFONTコードを適用します。

Question

以下のコードは、空のワークブック内のすべてのワークシートに適用されます。しかし、60pgのマクロを持つ既存のワークブックに同じコードを追加すると（これらの60pgではFontは設定されていません）、このコードはワークシート1だけに適用されます。他のワークシートではありません。既存のマクロを変更せずにワークブック内のすべてのワークシートに適用するには、以下のコードをどのように編集できますか？親切に助けてください。

Dim r As Range 
Set r = Range("a1:i1") 
r.Font.Bold = True 
r.Font.Name = "Segoe UI Symbol" 
r.Font.Size = 14 
Set r = Range("a2:i100") 
r.Font.Bold = True 
r.Font.Name = "Segoe UI Symbol" 
r.Font.Size = 11 
'End Sub 

End Sub 

このコードは機能します。しかし、単に最初のものを除くすべてのワークシートには適用されません。

Answer 1

Option Explicit 

Sub test() 
Dim r As Range 
Dim sh As Worksheet 

For Each sh In ThisWorkbook.Worksheets 
    Set r = sh.Range("a1:i1") 
    r.Font.Bold = True 
    r.Font.Name = "Segoe UI Symbol" 
    r.Font.Size = 14 
    Set r = sh.Range("a2:i100") 
    r.Font.Bold = True 
    r.Font.Name = "Segoe UI Symbol" 
    r.Font.Size = 11 
Next sh 
End Sub