Saving excel file on server and emailing it through Lotus Notes

[johncash]

Hi,

I am right now working on a production spreadsheet macro , which will save the file after each shift-> save it on the server-> email to the manager and becomes blank again.

I had started on the path of closing the excel file after it saves but seems like not an good idea.So now i am looking for it to save the file, send email and sheet becoming blank again.

I am not a pro when it comes to macro, i am learning it right now. If some one could help me out. I will be very grateful to him.

Private Sub CommandButton1_Click()

Dim TheFile As Variant
TheFile = Application.GetSaveAsFilename(“R:\ENGR\Shared\Engi neers\Prod\Shift A - Date.xls”,”Workbook(*.xls),*.xls”,,”Enter Date:”)


If TheFile=False Then
MsgBox “Why Did You Cancel?Try Again.”
Else
MsgBox “Thank You, Have a Nice Day”
End If
ActiveWorkbook.SaveCopyAs TheFile
ActiveWorkbook.Close (False)
End Sub