Copy a sheet and all formats to a new sheet

B

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
 
D

Don Guillett

Something wrong with this??

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

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---
 
Top