Shouldn't this code create a new worksheet from the active one?

It does create a new sheet,
but just copies the current clipboard to it.

ActiveSheet.Select
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
ActiveWorkbook.Worksheets(2).Paste

Thanks,
Peter

Hi Peter,

To add a copy of the active sheet, try:

Sub Tester()
ActiveSheet.Copy After:=Worksheets(1)
End Sub

---
Regards,
Norman



"Peter Chatterton" wrote in message
...
Shouldn't this code create a new worksheet from the active one?

It does create a new sheet,
but just copies the current clipboard to it.

ActiveSheet.Select
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
ActiveWorkbook.Worksheets(2).Paste

Thanks,
Peter

Thanks a lot Norman.

So why doesn't ActiveSheet.Select put anything in the clipboard?

Peter.

"Norman Jones" wrote in message
...
Hi Peter,

To add a copy of the active sheet, try:

Sub Tester()
ActiveSheet.Copy After:=Worksheets(1)
End Sub

---
Regards,
Norman



"Peter Chatterton" wrote in message
...
Shouldn't this code create a new worksheet from the active one?

It does create a new sheet,
but just copies the current clipboard to it.

ActiveSheet.Select
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
ActiveWorkbook.Worksheets(2).Paste

Thanks,
Peter

Hi Peter,

So why doesn't ActiveSheet.Select put anything in the clipboard?

This command selects the activesheet (which is already selected); it
includes no copy instruction.


---
Regards,
Norman



"Peter Chatterton" wrote in message
...
Thanks a lot Norman.

So why doesn't ActiveSheet.Select put anything in the clipboard?

Peter.

"Norman Jones" wrote in message
...
Hi Peter,

To add a copy of the active sheet, try:

Sub Tester()
ActiveSheet.Copy After:=Worksheets(1)
End Sub

---
Regards,
Norman



"Peter Chatterton" wrote in message
...
Shouldn't this code create a new worksheet from the active one?

It does create a new sheet,
but just copies the current clipboard to it.

ActiveSheet.Select
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
ActiveWorkbook.Worksheets(2).Paste

Thanks,
Peter