Thanks,

I've got something vaguely similar after some searching.

However I now have 2 problems

1. My code only finds the first instance of a value to find in a row -
the loop does not seem to work

2. My code only searches 1 row at a time, (this is linked to the above
problem), when I have selected a larger range (3 rows) it still only
returns the first instance of the value.

Many thanks for your suggestions in advance.

Dim rngFound As Range
Dim rngToSearch As Range
Dim rngcopyto As Range
Dim rngcopyto1 As Range
Dim rngcopyto2 As Range
Dim thesesheets As Worksheet
Dim thissheet As Worksheet
Dim strFirstAddress As String

Set thissheet = Sheets("Sheet1")

'FIND SKY AND VISIBILITY ok
For Each thesesheets In Worksheets
Set rngToSearch =
thesesheets.Range("12:12,15:15,21:21").EntireRow
Set rngFound = rngToSearch.find("CAVOK")
If Not rngFound Is Nothing Then
strFirstAddress = rngFound.Address
Do
Set rngcopyto = rngFound.Offset(1, 0)
Set rngcopyto1 = rngFound.Offset(1, 1)
rngcopyto.Value = "SKY AND VISIBILITY OK"
Loop While rngFound.Address < strFirstAddress
End If
Next thesesheets