Randomly delete 2 columns in every row within a range

[VikingLink]

I'm making an Excel file to help my pupils study their irregular verbs. To help them practise, I want my Excel to have a macro button to randomly clear 2 out of 3 verb forms on every row. Can anyone help me achieve this?

In Range(C6:E114) it has to clear the contents of C6 and D6, or D6 and E6, or C6 and E6. And then the same for every other row within the range, at random.

 

[Joe4]

Oh sorry, I made a typo!

This line:

        If Cells(1, "Q") = False Then

should actually be this:

        If Cells(i, "Q") = False Then

otherwise it is always looking at row 1, instead of whatever row i is at the time!

 

[VikingLink]

Oh sorry, I made a typo!

This line:

        If Cells(1, "Q") = False Then

should actually be this:

        If Cells(i, "Q") = False Then

otherwise it is always looking at row 1, instead of whatever row i is at the time!

Thanks, that made it work. I was already trying to make sense of the code, and I couldn't figure out what the 1 was referring to. I need to find a VBA for beginners manual

 

[Joe4]

You are welcome.

"Cells" is another range object like "Range", i.e.
the format is
Cells(row, column)

So
Cells(1, "Q")
would be the same as:
Range("Q1")

The big advantage to Cells over Range, is that you can use either a number or a letter in the column argument.
So, since "Q" is the 17th column on the worksheet, this:
Cells(1, 17)
is the same as this:
Cells(1, "Q")

BTW, there are some good VBA books over in the MrExcel Bookstore, like this one here: Microsoft Excel VBA and Macros (Office 2021 and Microsoft 365)