I need to add a fourth array, range and augment code under the srartrange.select section
Sub cartesianproduct()
Dim startrange As Range
range1 =Application.InputBox(Prompt:="Please Select First Range", Type:=8)
range2 =Application.InputBox(Prompt:="Please Select Second Range", Type:=8)
Set startrange =Application.InputBox(Prompt:="Please select where you want to putit", Type:=8)
array1 = [range1]
array2 = [range2]
startrange.Select
For i = 1 To UBound(array1)
For x = 1 To UBound(array2)
z = z + 1
ActiveCell.Offset(z, 0).Value = array1(i, 1)
ActiveCell.Offset(z, 1).Value = array2(x, 1)
Next
Next
End Sub
Sub cartesianproduct()
Dim startrange As Range
range1 =Application.InputBox(Prompt:="Please Select First Range", Type:=8)
range2 =Application.InputBox(Prompt:="Please Select Second Range", Type:=8)
Set startrange =Application.InputBox(Prompt:="Please select where you want to putit", Type:=8)
array1 = [range1]
array2 = [range2]
startrange.Select
For i = 1 To UBound(array1)
For x = 1 To UBound(array2)
z = z + 1
ActiveCell.Offset(z, 0).Value = array1(i, 1)
ActiveCell.Offset(z, 1).Value = array2(x, 1)
Next
Next
End Sub