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

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 Removed)
"Bill" <(E-Mail Removed)> wrote in message
news:BE473EB9-ED7A-43E6-B5AF-(E-Mail Removed)...
>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
>
>
>

Thanks

"Don Guillett" wrote:

> 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 Removed)
> "Bill" <(E-Mail Removed)> wrote in message
> news:BE473EB9-ED7A-43E6-B5AF-(E-Mail Removed)...
> >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
> >
> >
> >
>
>

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

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Don Guillett" wrote:

> 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 Removed)
> "Bill" <(E-Mail Removed)> wrote in message
> news:BE473EB9-ED7A-43E6-B5AF-(E-Mail Removed)...
> >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
> >
> >
> >
>
>