'数式を再計算させるマクロ2

'モジュールシートに以下のマクロをコピーして
'SheetCopyTest2()マクロを実行してください。

Option Explicit

Sub SheetCopyTest2()
    Dim sheet1 As Worksheet

    Worksheets.Add
    Cells(1, 1).Value = 1
    Cells(1, 2).Formula = "=TestFunction(A1)"

    Set sheet1 = ActiveSheet
    sheet1.Copy after:=sheet1
    MsgBox "ワークシートを強制再計算します。"

    WorksheetCalculate ActiveSheet
    WorksheetCalculate sheet1
End Sub

Sub WorksheetCalculate(sheet1 As Worksheet)
    Dim iCalculation As Integer
    iCalculation = Application.Calculation
    If iCalculation = xlManual Then
        sheet1.Calculate
    Else
        Application.Calculation = xlManual
        sheet1.Calculate
        Application.Calculation = iCalculation
    End If
End Sub

Function TestFunction(arg1 As Variant) As Variant
    TestFunction = arg1 * 100
End Function