pls have a luk on below code
Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
Dim str As String, str1 As String
Dim in1 As String, in2 As String
in1 = InputBox("Range1:")
in2 = InputBox("Range2:")
Set rng =...