Snasui Excel Forum

Code: Select all

Sub ShowValue()
    Dim i As Integer, j As Integer
    Dim msg As String
    Set Range1 = Application.InputBox(Prompt:="Select first range", _
        Title:="Please select range", Type:=8)
        Temp1 = Range1
    Set Range2 = Application.InputBox(Prompt:="Select second range", _
        Title:="Please select range", Type:=8)
    j = Range1.Count
    For i = 1 To j
        msg = msg & Range1(i) & " " & Range2(i) & vbCrLf
    Next i
    MsgBox (msg)
End Sub