Expand selection to multiple cells

Sub test()
'

'Determine Value to work with
Dim x As String
x = "=" & """" & ActiveCell.Value & """"

'Delete all formatting
For Each wb In Sheets
    wb.Select
    Cells.FormatConditions.Delete
Next wb

'Add new formatting on every sheet
For Each wb In Sheets
    wb.Select
    Cells.Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:=x
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
Next wb

End Sub

What I am looking to do is expand my selection to multiple (non-consecutive) cells. Instead of just 1 at a time. Thanks!