Workbook.Save

Use this function to save the workbook to a file

Syntax Parameters Return value
- This function has no parameters. This function does not return a value.

SVB Example

Saving all open workbooks 

Option Base 1
Option Explicit
Sub Main
    Dim wb As Workbook
    'Make sure that every open workbook has been saved
    For Each wb In Workbooks
        If Not(wb.Saved) Then
            wb.Save
        End If
    Next wb
End Sub