Select cell where column and row intersect.
 

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!

Select cell where column and row intersect.
 

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!

Select cell where column and row intersect.
 

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?

Select cell where column and row intersect.
 

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.

Select cell where column and row intersect.
 

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.

Select cell where column and row intersect.
 

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

Select cell where column and row intersect.
 

glad to help
--
Don Guillett
SalesAid Software

wrote in message
ups.com...

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