Use an offset kinda like this...

Dim rng As Range
With Worksheets("CIP Exceptions")
Set rng = .Range(.Cells(5, 5), .Cells(Rows.Count,
5).End(xlUp).offset(1,0))
End With
rng.Offset(0, 1).Formula = "=TEXT(E5,""mmmm"")"
--
HTH...

Jim Thomlinson


"Jasmine" wrote:

I have used the following code to put the formula in a specific column all
the way to the last cell. It is working good, except it misses the last row.
Is there a way to force it to go one row extra. Any help will be
apprecaited. Thanks!


Dim rng As Range
With Worksheets("CIP Exceptions")
Set rng = .Range(.Cells(5, 5), .Cells(Rows.Count, 5).End(xlUp))
End With
rng.Offset(0, 1).Formula = "=TEXT(E5,""mmmm"")"