VBA Save Sheet

[Noz2k]

So I have a userform which sends information to a sheet and since I can't figure out how to send the sheet via email directly, I was wondering how to instead automatically save the sheet to the users computer as a new workbook.

Any idea?

Thanks

 

[VoG]

Try like this

ActiveSheet.Copy
With ActiveWorkbook
    .SaveAs Filename:="C:\test.xls"
    .Close
End With

 

[Noz2k]

Didn't seem to work. I changed the the directory and it ran fine without error, but it didn't seem to save the file?

 

[VoG]

This worked for me:

Sub a()
ActiveSheet.Copy
With ActiveWorkbook
    .SaveAs Filename:="C:\test.xls"
    .Close
End With
End Sub

 

[Noz2k]

Ok, will give this a try tomorrow morning as I have to catch a bus. But thanks very much for your help.