Copy a sheet and rename it

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Can someone please show me what I am stupidly missing:

I want to make a copy of a very hidden sheet named LogTemplate and position
it after the sheet named LOG (visible). Rename the copy as Log Future # where
# is the next number in sequence. So if Log Future 1 already exists, name the
new one Log Future 2, and so on...

I won't post my code (unless someone requests it) since it is useless any way.

Thanks much in advance for your assistance.
 
try unhiding the sheet.
copy it
rename it
then hide it again
or is that what you are needing help with?
 
Dim i As Long
Dim sh As Worksheet

i = 0
On Error Resume Next
Do
Set sh = Nothing
i = i + 1
Set sh = Worksheets("Log Future " & i)
Loop Until sh Is Nothing
On Error GoTo 0

Worksheets("Sheet2").Copy after:=Worksheets("Log")
ActiveSheet.name = "Log Future " & i


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
Back
Top