フォントをMSPゴシックに一括変更

同一フォルダのエクセルファイル全部に対してフォントを変える処理。
行列番号部分はスタイルで指定されている模様。この処理だけでは無理。

Sub ゴシック統一()
    
    Dim buf As String, folderPath As String
    Dim ws As Worksheet, wb As Workbook
    
    folderPath = ThisWorkbook.Path & "\"
    buf = Dir(folderPath & "*.xlsx")
    
    Do While Len(buf) > 0
        
        Set wb = Workbooks.Open(folderPath & buf)
        
        For Each ws In wb.Worksheets
            If ws.Range("A1").Font.Name <> "ＭＳ Ｐゴシック" Then
                ws.Cells.Font.Name = "ＭＳ Ｐゴシック"
            End If
        Next
        
        If Not wb.Saved Then wb.Save
        wb.Close
        Set wb = Nothing
        
        buf = Dir()
        
    Loop
    
End Sub

以上