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
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
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
iColReview = Application.InputBox(Prompt:="Load the Object with the [Column]", Title:="Specify Column by Clicking on ANY Cell.", Default:=ActiveCell.Address, Type:=8).Column