I have the code below. What I want it to also do, is close the file. ?


Private Sub cmbComplete_Click()

usfFinished.Hide

Dim dt As String, wbNam As String
wbNam = "EmpSatSur"
dt = Format(CStr(Now), "yyyymmddhhmmss")
ActiveWorkbook.SaveAs Filename:=wbNam & dt
End Sub