Excel VisualBasic Script

Sub CalcCell()
      Worksheets("Sheet1").range("A1").Calculate
End Sub