Sub asktogo1()
mc = InputBox("Enter column header")
mr = InputBox("enter row")
Cells(mr, Rows(1).Find(mc).Column).Select
End Sub

--
Don Guillett
SalesAid Software

wrote in message
ups.com...

After playing with it I found that I have to enter in the column letter
and the row number. I wish to enter in the text or number that is
housed in one of the column headers, and then enter in text or a number
that is in column As rows. Yours works great, but it requires that I
know the column and row address.