Thank you Don! I had to change it a little to get it to do what I want,
but it seems to work great now.

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