Sub LookForWS()
Dim rng as Range, c as range
Dim firstAddress as String

With Worksheets("Sheet1").
set rng = .Range(.Cells(1,3),cells(1,3).End(xldown))
End With

With rng
Set c = .Find("WR", lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.offset(0,3).Value = "WIDESCREEN"
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

End With

--
Regards,
Tom Ogilvy


Rasmus wrote in message
le.rogers.com...
Hi everybody,

This is probably a breeze for most of you guys, but I can't get it to
work,
so please help:

I need a macro that runs through the whole of column C until it finds the
first empty row (ie the whole sheet). If any cell in column C CONTAINS the
values "(WS)" a value of "WIDESCREEN" should then be written in the same
row
but in column F.

Any quick ideas ? All help much appreciated.

Rasmus