copy a sheet through macro -- shortcut key

[chakki]

Hi Team,

I have a workbook in which I paste a data and refresh in pivot and after refreshing the pivot I need to copy only pivot sheet into new workbook.

I am doing this process by selecting move or copy option by selecting the sheet and than right key.

I want to create a macro shortcut key in which I should get a copy of the pivot sheet into new workbook.

Please help me with that.


With Regards
chakki

 

[Glory]

Ctrl+F8, "Options", and assign a shortcut to the macro you're using... which should look something like this:

Public Sub Test()
Workbooks.Add
ThisWorkbook.Sheets("a").Copy After:=Workbooks("Book1").Sheets(3)
End Sub