Input Box: Accessing values on spreadsheet

[FRANK FALCO]

I created an adding to perform some simple calculations by adding values
through and input box.
Is there a way to get the input box to recognize the value by clicking on a
cell???
Any help is very much appreciated.
Thanks in advance.
Frank

 

[Gord Dibben]

Frank

Sub grab_value()
Set dCell = Application.InputBox(prompt:= _
"Select any cell", Type:=8)
MsgBox "value is" & dCell.Value
End Sub

Gord Dibben Excel MVP

 

[FRANK]

thank you for the help.

Frank

Sub grab_value()
Set dCell = Application.InputBox(prompt:= _
"Select any cell", Type:=8)
MsgBox "value is" & dCell.Value
End Sub

Gord Dibben Excel MVP