try something like this

Public Sub test()
Dim cfind As Range
Set cfind = Cells.Find(what:="h") 'h is the value you want to find.
change this
MsgBox "the coumn header is " & cfind.End(xlUp)
MsgBox "the row header is " & cfind.End(xlToLeft)


End Sub

"scchang" wrote in
message ...

Looking for a way to search a worksheet for a given value and return the
column and row header value(s) for the found cell(s). Any help
appreciated!


--
scchang
------------------------------------------------------------------------
scchang's Profile:
http://www.excelforum.com/member.php...o&userid=31937
View this thread: http://www.excelforum.com/showthread...hreadid=516615