I have the following lines of code:

Dim datDate As Date, rngActive As Range
Set rngActive = Application.InputBox(prompt:="Click on cell",
Title:="Cells)", Type:=8)
'display rngActive
msgbox rngActive
'assign values to worksheet cells
rngActive.Value = datDate

When I click the cell for the inputbox prompt, the cell reference shows up
in the inputbox line (e.g., Sheet2!$A$2) and the date value for rngActive is
assigned that cell BUT I can't seem to capture the value of the inputbox in
the msgbox. What I want to do is GoTo the cell identified to verify the data
but since I can't pick up the cell reference from the inputbox, my cursor
stays in the original cell from when I started the procedure. Any help
appreciated. Thank you.

I apologize...This is an Inputbox question. Have been working with VLookup
for a while...:)

"Wylie C" wrote:

I have the following lines of code:

Dim datDate As Date, rngActive As Range
Set rngActive = Application.InputBox(prompt:="Click on cell",
Title:="Cells)", Type:=8)
'display rngActive
msgbox rngActive
'assign values to worksheet cells
rngActive.Value = datDate

When I click the cell for the inputbox prompt, the cell reference shows up
in the inputbox line (e.g., Sheet2!$A$2) and the date value for rngActive is
assigned that cell BUT I can't seem to capture the value of the inputbox in
the msgbox. What I want to do is GoTo the cell identified to verify the data
but since I can't pick up the cell reference from the inputbox, my cursor
stays in the original cell from when I started the procedure. Any help
appreciated. Thank you.

try adding the following before the display message
rngActive.activate

"Wylie C" wrote:

I have the following lines of code:

Dim datDate As Date, rngActive As Range
Set rngActive = Application.InputBox(prompt:="Click on cell",
Title:="Cells)", Type:=8)
'display rngActive
msgbox rngActive
'assign values to worksheet cells
rngActive.Value = datDate

When I click the cell for the inputbox prompt, the cell reference shows up
in the inputbox line (e.g., Sheet2!$A$2) and the date value for rngActive is
assigned that cell BUT I can't seem to capture the value of the inputbox in
the msgbox. What I want to do is GoTo the cell identified to verify the data
but since I can't pick up the cell reference from the inputbox, my cursor
stays in the original cell from when I started the procedure. Any help
appreciated. Thank you.

Tried it and got the following error msg...

Activatemethod of Range class failed.

"JNW" wrote:

try adding the following before the display message
rngActive.activate

"Wylie C" wrote:

I have the following lines of code:

Dim datDate As Date, rngActive As Range
Set rngActive = Application.InputBox(prompt:="Click on cell",
Title:="Cells)", Type:=8)
'display rngActive
msgbox rngActive
'assign values to worksheet cells
rngActive.Value = datDate

When I click the cell for the inputbox prompt, the cell reference shows up
in the inputbox line (e.g., Sheet2!$A$2) and the date value for rngActive is
assigned that cell BUT I can't seem to capture the value of the inputbox in
the msgbox. What I want to do is GoTo the cell identified to verify the data
but since I can't pick up the cell reference from the inputbox, my cursor
stays in the original cell from when I started the procedure. Any help
appreciated. Thank you.