Saves the 'active workbook' as the same file
name and to the same folder as it currently
resides. If the workbook is new, this
action replicates 'save as...' and presents that
dialog.
Sub wbSave()
Dim wb As Workbook
Set wb = ActiveWorkbook
'Do what you want with workbook here using wb
variable
wb.Save 'Saves currently active workbook
wb.Close
End Subub
