Vba to make a copy of sheet as its own document

[tonywatsonhelp]

Hi Everyone,
I need help,
I want a macro that will take the active sheet and make a copy of it as its own document?

So heres what i need,
I run the macro,
It looks the the name in cell H4 and will use this as the docuument name,

It makes a copy of just the active sheet as a new document and saves it in the same location as the document we are in,
it saves it as the name in cell H4. (it must save it as a xlsx document so all the macros are removed,

mesage box "Report Created"

please help if you can
Thank you

Tony

 

[mrshl9898]

Like this?

Sub createfile()

myLoc = Application.ActiveWorkbook.Path
NewName = Range("H4")

ActiveSheet.Copy

ActiveWorkbook.SaveAs myLoc & "\" & NewName & ".xlsx"

msgbox "Report Created"


End Sub

 

[tonywatsonhelp]

Wow,
Worked first time,
Thank you very much mrshl988
Tony