Thanks for that, I changed the line & this compared with the solution above
sorted this bit out - many thanks!

Kelvin
"N10" wrote in message
...
Hi

Could be this line

ActiveCell.Offset(1, 0).Activate 'Move down one cell

how about

ActiveCell.Offset(1, 0).select

Best N10



"Kelvin Clayson" wrote in message
...
Hi -

Can anyone clue me in as to why the following code won't iterate down
thru
cells getting the value from each & comparing it to a value obtained
arlier
in the function?

Many thanks,

Kelvin

'Loop down thru cells, finding match on Room No:
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Interior.ColorIndex < 35 Then 'Cell not
unavailable
If ActiveCell.Value = RoomNumber Then
If Len(StaffName) = 0 Then
StaffName = ActiveCell.Value
Else
StaffName = StaffName & Chr$(13) & ActiveCell.Value
End If
End If
End If
ActiveCell.Offset(1, 0).Activate 'Move down one cell
Loop