this may give you an idea:

Option Explicit

Sub find_it()
Dim ws As Worksheet
Dim ws1 As Worksheet
Dim rng As Range
Dim rngfound As Range
Set ws = Worksheets("Sheet1")
Set ws1 = Worksheets("sheet2")
Set rng = ws.Columns(5)

With rng
Set rngfound = .Find("tackles", LookIn:=xlValues)
If Not rngfound Is Nothing Then
ws1.Range("B15").Value = rngfound.Offset(1)
End If
End With

End Sub


--


Gary Keramidas


"CribbsStyle" wrote in message
...
I need to find the word "Tackles" in Column E and then have the value
of the cell below it inserted into B15 on another sheet. This seems
like it would be simple...but for some reason cant do it, lol. Any
Help?