Copy a sheet and all formats to a new sheet

[Bill]

I would like to make a macro to copy a sheet to a new sheet. I would like to
include all formats, print areas page setup etc... including a macro button.
I recorded the following. This works except for the button. ANy help??


Sub Macro5()
'
'
Sheets("Current Loan Analysis").Select
ActiveSheet.Unprotect
Sheets("Current Loan Analysis").Select
ActiveSheet.Buttons.Add(1082.25, 34.5, 125.25, 80.25).Select
Sheets("Current Loan Analysis").Copy After:=Sheets(2)
Sheets("Current Loan Analysis (2)").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Current Loan Analysis").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Range("J1").Select
End Sub

 

[Don Guillett]

Something wrong with this??

Sub copysht()
Sheets("Current Loan Analysis").Copy After:=Sheets(Sheets.Count)
End Sub

 

[Bill]

Thanks

Something wrong with this??

Sub copysht()
Sheets("Current Loan Analysis").Copy After:=Sheets(Sheets.Count)
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[ryguy7272]

Maybe Sub Macro1()
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
End Sub

Also, right-click the button > format Control > Properties > Move and Size
with Cells.

HTH,
Ryan---