Set mathcad = GetObject(, "Mathcad.Application") Set Sheet = mathcad.Worksheets(0) Sheet.recalculate MsgBox Sheet.Name a = Sheet.getvalue("a") MsgBox a Sheet.SaveAs "C:\w\copy.xmcd"