Sub findclump()
what = "F"
Rows.Hidden = False
lr = Cells(Rows.Count, "a").End(xlUp).Row
x = Columns(1).Find(what).Row 'Address
MsgBox x
y = Columns(1).Find(what, after:=Cells(lr, 1), _
SearchDirection:=xlPrevious).Row
MsgBox y
Rows(x & ":" & y).Hidden = True
End Sub

--
Don Guillett
SalesAid Software

"SV" wrote in message
ups.com...
Hi Don, thanks for posting this,
but I'd rather have to search for the country names and hide those
rows automatically rather than having to mention the row names cos
they can go all the way upto 1300.

Something that can find France or Uk and without mentioning the rows
and hide those entire rows automatically.

Thanks again!
SV