Copy active sheet to a new workbook

[Angelique Cassam]

I have put a macro on one workbook to copy the active sheet to a new workbook. I have also assigned this macro to a shortcut button on my Macro toolbar.

However, I would like this button to work for any workbook I have open. At the moment, whatever workbook I have open and I click the button it still copies the last sheet I had active in the original workbook.

Sub Macro23()

'Copy sheet, and send to new workbook
ThisWorkbook.ActiveSheet.Copy _
Before:=Workbooks.Add.Worksheets(1)

End Sub

Can someone please tell me what to adjust so that it will work for the active sheet in ANY workbook.

Thank you

[AndyLitch]

Delete the "ThisWorkbook."................. Thisworkbook refers to the workbook the macro is resident in

[Angelique Cassam]

Thank you. I tried the code without "ThisWorkbook." but it is still doing the same thing for some reason.

Does anyone know a simple macro code to copy a sheet to a new workbook that will work for any workbook as I think mine was rubbish lol?