Sorry i forgot the "Next" off the code!

Sub find_n_replace()
Dim Rng As Range, MyCell As Range
Set Rng = ActiveSheet.Range("X6:X361")
For Each MyCell In Rng
If MyCell.Value = "IP/OP Obs" Then
ActiveSheet.Range("BK" & MyCell.Row).Value = _
"No IP acuity documented; should have been OP Observation"
End If
Next MyCell
activesheet.Columns("BK").AutoFit
End Sub


--
The Code Cage Team

Regards,
The Code Cage Team
www.thecodecage.com
------------------------------------------------------------------------
The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=7656