Excel VisualBasic Script

Sub save()
    Workbooks("Data Book.doc").Save
End Sub