Find first and last instance
Thanks Tom!
J
"Tom Ogilvy" wrote:
Sub EFGH()
Dim rng As Range, rng1 As Range
Dim sAddr As String
Set rng = Columns(1).Find("April")
sAddr = rng.Address
If Not rng Is Nothing Then
Do
Set rng1 = rng
Set rng = Columns(1).FindNext(rng)
Loop While rng.Address < sAddr
Range(rng, rng1).Select
End If
End Sub
--
Regards,
Tom Ogilvy
"Gixxer_J_97" wrote in message
...
Hi all,
I have a column containing Month names. Each month is grouped together.
IE:
March
March
April
April
April
May
May
May
May
etc etc
how do i find the row of the first instance of a certain month, and also
the
row of the last instance of the same month
tia
J
|