fill Userform fields from Range given in InputBox

[kerrss]

I have the user select a Range with the following:
Sub InputRange()
Dim varRange As Variant
On Error Resume Next
Set varRange = _
Application.InputBox("Select all cells in the row you would like to update", Type:=8)
If IsObject(varRange) = False Then Exit Sub
'just to show the range has been selected
MsgBox varRange.Cells.Address
End Sub

I then want to take the values from the fields in this range and use them to fill in a UserForm.

Or, if I could just somehow reference the address of the first cell in the selected range, then I could pass that address thru to my form as a starting location and use the offset functions to fill the form - but, I don't know how to get the first cell address or pass it along for use in another bit of code.

I am really new to this, and would appreciate any help.

Thanks!

 

[_Ken_]

This may be a starting point for you.
This code will insert the contents of specific cells into TextBoxes in a UserForm. You will need a UserForm with 3 TextBoxes in this example
Private Sub UserForm_Initialize()
'Establish opening values for textboxes 1 to 3

TextBox1.Value = Sheets("Sheet1").Range("B1")
TextBox2.Value = Sheets("Sheet1").Range("B2")
TextBox3.Value = Sheets("Sheet1").Range("B3")

End Sub

 

[kerrss]

Thank you for your help.

I understand how to populate the form fields with cells in excel now, but I need the excel cells to be determined by the user by way of an InputBox and then I need to pass this reference to the bit of code you have shown me.

Any ideas?

Thanks.