a double loop?

How will that work?

I have 1500 lines of data where i would want it to find the value so presumed it would be quicker to use a loop. Never used find before though.

Edit: sorry for not doing the code properly.

This function will allow you to return the cross reference of a row title and column header:

Function CrossReference(RowTitle, ColTitle, DataRange As Range) As Variant
Dim FindRow As Range, FindCol As Range

Set FindRow = DataRange.Columns(1).Find(RowTitle, lookat:=xlWhole)
Set FindCol = DataRange.Rows(1).Find(ColTitle, lookat:=xlWhole)

If FindRow Is Nothing Or FindCol Is Nothing Then
  CrossReference = ""
Else
  CrossReference = DataRange.Cells(FindRow.Row, FindCol.Column).Value
End If

End Function

And here's a simple example sub calling it:

Sub Test()

MsgBox CrossReference("test3", "example4", ThisWorkbook.Sheets(1).Cells)

End Sub

ok, i'm really not following this find. think i'm out of my league a bit here.

can it not be done with a loop, i know you say it might take longer but not too bothered about that so long as i can understand it.

It can't be done in *a* loop, but it can be done in 2 While loops ...

Sub Loopy()

Dim RowLoop, ColLoop

RowLoop = 1
While ThisWorkbook.Sheets(1).Cells(RowLoop, 1).Value <> "Test3"
  RowLoop = RowLoop + 1
Wend

ColLoop = 1
While ThisWorkbook.Sheets(1).Cells(1, ColLoop).Value <> "Example4"
  ColLoop = ColLoop + 1
Wend

MsgBox ThisWorkbook.Sheets(1).Cells(RowLoop, ColLoop).Value

End Sub

However, you'd be far better reading up on how the .find method works and using that, it's many times faster and much easier to error trap and control.