My macro appears as follows

Dim r As Range, c As Range

Set r = Range(Range("B4"), Range("B4").End(xlDown))
Set c = r.Find("NA", SearchDirection:=xlPrevious)(2)
If Not c Is Nothing Then
Set r = Range(c, c.End(xlDown))
Range("D4").Resize(r.Count).Value = r.Value
End If

My question is based on the following line

Set c = r.Find("NA", SearchDirection:=xlPrevious)(2)

What does the (2) at the end of the line mean?

Thank you

Hi ManKind,

My question is based on the following line

Set c = r.Find("NA", SearchDirection:=xlPrevious)(2)

What does the (2) at the end of the line mean?


This line of code is an abbreviation for:

Set c = r.Find("NA", SearchDirection:=xlPrevious).Item(2,1)

and is equivalent to:

Set c = r.Find("NA", SearchDirection:=xlPrevious).Offset(1,0)

For a detailed discussion of this, Chip Pearson hosts an excellent article,
written by Alan Beban:

http://www.cpearson.com/excel/cells.htm


---
Regards,
Norman


"ManKind" wrote in message
...
My macro appears as follows

Dim r As Range, c As Range

Set r = Range(Range("B4"), Range("B4").End(xlDown))
Set c = r.Find("NA", SearchDirection:=xlPrevious)(2)
If Not c Is Nothing Then
Set r = Range(c, c.End(xlDown))
Range("D4").Resize(r.Count).Value = r.Value
End If

My question is based on the following line

Set c = r.Find("NA", SearchDirection:=xlPrevious)(2)

What does the (2) at the end of the line mean?

Thank you