Voorwaardelijke opmaak kolom automatisch toevoegen met VBA

[ErikdV]

Ik heb een werkblad, waarin ik in diverse kolommen gebruik wil maken van voorwaardelijke opmaak.

Ik heb de volgende code in VBA.
De code wil ik zodanig aanpassen dat ik:
1. Zelf de gewenste kolom in kan voeren.
2. Zelf de gewenste waarden en de daarbij behorende opmaak kan in voeren (achtergrond en font).
Ik wil gebruik maken van de standaardkleuren die excel gebruikt, dus geen uitgebreide rgb-notatie.
Het gaat over een beperkt aantal waarden (max. ca. 10)

Hoe doe ik dit?

Sub Vw_opm2()

With Sheets(2).Range("G:G").FormatConditions _
.Add(xlCellValue, xlEqual, "1")
With .Interior
.ColorIndex = 3
End With
With .Font
.Bold = True
.ColorIndex = 1
End With
End With

With Sheets(2).Range("G:G").FormatConditions _
.Add(xlCellValue, xlEqual, "2")
With .Interior
.ColorIndex = 46
End With
With .Font
.Bold = True
.ColorIndex = 1
End With
End With

End Sub