ExcelVBA セルの書式を設定する

呼び出しプロシージャ

Sub test()
Dim strPath As String
Dim strSheetName As String
Dim wb As Workbook
Set wb = ThisWorkbook
strSheetName = "Sheet1"
Call sub_Format(wb, strSheetName, "B2:B5", "0.00")
End Sub

書式変更部品プロシージャ

Sub sub_Format(wb As Workbook, shName As String, strRange As String, strFormat As String)
'----------------------------------------------------------------
'機能：指定された範囲のセルの書式を変更する
'引数１：対象ブック
'引数１：対象シート名
'引数１：対象のセルの範囲を文字列で指定
'引数１：変更対象の書式を表す文字列
'------------------------------------------------------------------
wb.Sheets(shName).Range(strRange).NumberFormatLocal = strFormat

End Sub

参考URL
セルの表示形式の書式記号 ｜ Excel作業をVBAで効率化
VBA セルに表示形式を設定する (Range.NumberFormatLocal)