TRY THIS, THIS WILL PUT THAT FORMULA IN EVERY CELL FROM E5 TO THE LAST
USED ROW IN COLUMN E:
'Paste formula in each cell in Column E from E5 down to bottom of new
range
For Each rngCell In range("E5:E" & Range("E" &
rows.count).end(xlup).Row)
rngcell.Formula = "=IF(B4 <= TODAY()-77,"11+ Weeks",IF(B4 <=
TODAY()-42,"6 to 10 Weeks",IF(B4 <= TODAY()-7,"1 to 5 Weeks",IF(B4
TODAY()-7,"Current Week"))))"
Next rngCell

End Sub

*Is this what you wanted?*


--
Breakfast Guy
------------------------------------------------------------------------
Breakfast Guy's Profile: http://www.thecodecage.com/forumz/member.php?userid=5
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=6849