Hello everyone. I wish to be able to enter in a column header and a row
label, and be taken to the cell where they intersect. Headers are in
row 1, and row labels are in column A. I have used VBA a little, but I
need to know which module to use. Can you help me on this? Thanks!

something like

Sub asktogo()
mc = InputBox("Enter column")
mr = InputBox("enter row")
Range(mc & mr).Select
End Sub

--
Don Guillett
SalesAid Software

wrote in message
ups.com...
Hello everyone. I wish to be able to enter in a column header and a row
label, and be taken to the cell where they intersect. Headers are in
row 1, and row labels are in column A. I have used VBA a little, but I
need to know which module to use. Can you help me on this? Thanks!

Thanks for the reply. Which module do I put this in? Also does this
code allow me to enter the header and then the row label to find the
intersection?

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.

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.

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