CopySheet After
Karen,
What's the error message?
Doug
"Karen53" wrote in message
...
Hi,
I have a list of sheet names and when a new sheet is created it is added
in
sequetial order on the list. When a new sheet is created, I'm trying to
have
it placed after the item on the list before it. I error out at the copy
statement. It tells me it failed. I am unable to determine why. In
debug,
the correct sheetname and Sheetnumber appear in the variables, so I'm at a
loss.
Does anyone have any suggestions?
If MainPagepg.Range("BC" & NewRow - 1) = "" Then
ShNumber = Firstpg.Index
Else
AfterShName = MainPagepg.Range("BC" & NewRow - 1).Value
ShNumber = Sheets(AfterShName).Index
End If
CAMMaster.Activate
Call NewSheetName(SheetName)
If SheetName = "" Then Exit Sub
'copy the sheet
ActiveSheet.Copy After:=Sheets(ShNumber)
Thanks for your help.
--
Karen
|