Word combinations

[power2nc]

I am trying to create several uqunie paragraphs from several combinations.

Example
Line 1: Hi, hello, Greetings
Line 2: my name is mike, how are you doing, whats up
Line 3: !, ?, .
Hi, my name is mike!
Hi, how are you doing?
Hi, whats up!
hello, my name is mike!

Basically I want to create every combination possible. I will have 5 options and strings. (5x5x5x5x5=3125 different combinations)

I have done something like this before but cant remember how I got started. Any help will be appreciated. Thanks!

 

[GlennUK]

What 5 options, and what 5 strings?

How are your VBA skills?

 

[power2nc]

My examples shows 3x3, an example of that would work fine. My skills are minimal.

 

[GlennUK]

Have a look at this data, and output:

Excel Workbook
	A	B	C
1	Hi	hello	Greetings
2	my name is mike	how are you doing	whats up
3	!	?	.
4
5	Hi, my name is mike!
6	Hi, my name is mike?
7	Hi, my name is mike.
8	Hi, how are you doing!
9	Hi, how are you doing?
10	Hi, how are you doing.
11	Hi, whats up!
12	Hi, whats up?
13	Hi, whats up.
14	hello, my name is mike!
15	hello, my name is mike?
16	hello, my name is mike.
17	hello, how are you doing!
18	hello, how are you doing?
19	hello, how are you doing.
20	hello, whats up!
21	hello, whats up?
22	hello, whats up.
23	Greetings, my name is mike!
24	Greetings, my name is mike?
25	Greetings, my name is mike.
26	Greetings, how are you doing!
27	Greetings, how are you doing?
28	Greetings, how are you doing.
29	Greetings, whats up!
30	Greetings, whats up?
31	Greetings, whats up.
Sheet5

produced from this macro:

Sub wordcombo()
    irow = 5
        For i = 1 To 3
            For j = 1 To 3
                For k = 1 To 3
                    Cells(irow, 1).Value = Cells(1, i) & ", " & Cells(2, j) & Cells(3, k)
                    irow = irow + 1
                Next
            Next
        Next
            
End Sub

Does that help?