K
Karen53
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.
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.