Sub CalculateAverage()
' データの範囲を指定
Dim dataRange As Range
Set dataRange = Range("A1:A10") ' データ範囲を適宜変更してください
' 平均値を計算
Dim average As Double
average = WorksheetFunction.Average(dataRange)
' 結果を表示
MsgBox "平均値: " & average
End Sub