macro to select next and rename

[cwilson]

I want the Macro to do this only if the sheet is not the last sheet in the workbook. It is knind of meesy, but is what I have so far

Sheets("Sheet1").Selec
Range("E2").Selec
Selection.Cop
Sheets("Summary").Selec
Range("a34").Selec
Selection.End(xlToRight).Offset(0, 1).Selec
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
:=False, Transpose:=Fals
Selection.Offset(1, 0).Selec
Sheets("Engine").Selec
Range("D65510:g65536").Selec
Application.CutCopyMode = Fals
Selection.Cop
Sheets("Sheet1").Selec
Range("D65510").Selec
ActiveSheet.Past
Range("F65510:f65536").Selec
Application.CutCopyMode = Fals
Selection.Cop
Sheets("Summary").Selec
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
:=False, Transpose:=Fals
Sheets("Sheet1").Selec
Sheets("Sheet1").Name = Format(Range("E2").Value, "yyyymmdd"
Sheets("Summary").Selec
Range("a34").Selec

End Su

This workbook is updated weekly by adding additional sheets (Sheet1, (2), (3), etc). I don't want to manually rename each new sheet to update the workbook. The last sheet in the WB is named Caboose and it is needed (I think) for some SUM(Engine:Caboose) formulas

Thanks in advance for the help.

 

[Frank Kabel]

Hi
without looking at your code mybe something like
if activesheet.index <>activeworkbook.worksheets.count then
'your code
end if