Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Worksheet copy with rename
Private Sub CommandButton1_Click()
Dim sht1 As Worksheet Dim sht2 As Worksheet Set sht1 = ActiveSheet Set sht2 = Worksheets.Add(after:=sht1) sht2.Name = sht1.Range("J1").Value sht1.UsedRange.Copy sht2.Range("A1").PasteSpecial (xlPasteAll) End Sub The above code is supposed to: 1. create a new worksheet after the current worksheet containing all the information in the current worksheet and 2. To renme the worksheet to the contents of J1 in the first worksheet. The problem: Depending on the order of the statements, it either creates the new worksheet and renames it correctly OR it creates the worksheet and correctly copies the info. I can't get it to do both. What am I doing wrong? Is there a better way? Thanks |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro: Copy a worksheet and rename it to a specified value | Excel Discussion (Misc queries) | |||
Copy worksheet and rename sheet | Excel Discussion (Misc queries) | |||
Copy/Paste Worksheet to last and rename with input box for value. | Excel Programming | |||
Copy/Paste Worksheet to last and rename with input box for value. | Excel Programming | |||
Copy worksheet from multiple files in one DIR to another DIR & rename | Excel Programming |