select/color multiple cells macro

[afmck06]

good morning all. I searched but couldn't find anything that helped me do what i want. what i want is to check a checkbox and if it is checked, select multiple cells and color them. I have managed to get the following figured out:
If Me.CheckBox1 = True Then
Cells(TextBox2, "A").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Cells(TextBox2, "L").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With

but i know there's got to be a way to shrink it into one action by having it select all the cells at once as opposed to selecting one cell, coloring, then selecting the next and so on. I just can't figure out how to do so. any pointers?

 

[beedistinct]

Try this...
You'll have to replace the String "E5,F9,E12" below to the address of the cells that you wish to color.

 Range("E5,F9,E12").Select
    
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With

 

[afmck06]

thanks, but i want the row to be dependent on a number inputed into a text box (textbox2). is there any way to do that?