Retrieve [Sheet Name]:

Dim wsMySheet As Worksheet
Set wsMySheet = Application.InputBox("Select a sheet, then select a cell on that sheet.", Title:="Retrieve Sheet Name", Type:=8).Parent
Debug.Print "You selected sheet: " & wsMySheet.Name

---

Retrieve [Row]:

Dim iRowReview as Long
iRowReview = Application.InputBox(Prompt:="Load the Object with the [Row]", Title:="Specify Row by Clicking on ANY Cell.", Default:=ActiveCell.Address, Type:=8).Row

---

Retrieve [Column]:

Dim iColReview as Long
iColReview = Application.InputBox(Prompt:="Load the Object with the [Column]", Title:="Specify Column by Clicking on ANY Cell.", Default:=ActiveCell.Address, Type:=8).Column

---