Hi,

Am Fri, 10 May 2013 08:09:01 -0700 (PDT) schrieb
:

For instance if my find data was in column d, i would use the offset
number 4

try:

Sub mySearch()
Dim c As Range

With ActiveSheet
Set c = .UsedRange.Find(" my specific value", LookIn:=xlValues)
If Not c Is Nothing Then _
MsgBox c.Column
End With
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2