command button: specified sheet copy and save as new workbook to specified location

[Zlatko.Pan]

Hello!

Userform with command button:
Current code saves copy of "active sheet", i'd like to change it to save copy of "specified sheet" to specified location.

Private Sub cmdSaveAsNew_Click()
ActiveSheet.Copy 'this line want to change???
ActiveWorkbook.SaveAs "C:\Users\" & Application.UserName & "..." 'this is specified location
End Sub

[xlbiznes]

Hi,

put this code inside a module. The function basically requires the sheet name that you wish to copy and save. Hope this helps.

Please Login or Register  to view this content.

[Zlatko.Pan]

Hi Xlbiznes, what will triger youre code? I'd like to click cmdButton on my form to triger that code.

[xlbiznes]

Hi,

this is the way the save will be triggered. You also need to check the file path in the save_sheet function to the target folder and file name.

Please Login or Register  to view this content.

[Zlatko.Pan]

Xlbiznes thanks, actualy this is my first time: click to call module