It's Tuesday.. which I deem the 2nd Monday and I've only have 1 cup of coffee.

I have a macro that generates a worksheet based on user input. Once the X
number of worksheets are generated a SUMMARY worksheet is generated. This
worksheet will be populated with information from the other worksheets.

Here's the code for the SUMMARY part...

With ActiveWorkbook.Worksheets
.Add befo=.Item(1)
End With
ActiveSheet.Select
ActiveSheet.name = "SUMMARY"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "Project #"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Project"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Weekly Hours"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Forecasted"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "% to Forecast"
ActiveCell.Offset(1, -4).Range("A1").Select
ActiveCell.FormulaR1C1 = "=MZ6756!RC[1]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=MZ6756!RC[1]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=MZ6756!R[66]C[3]"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=MZ6756!R[68]C[1]"
ActiveCell.Offset(1, 0).Range("A1").Select


I want the last 4 referenced cells to see the worksheet but not by name,
also the last two references need to be more like this...

Selection.End(xlToDown).Select

Like I said... it's the 2nd Monday and the caffeine has not kicked in....

THANK YOU!!


--
Jack of all trades... master of none..