Hi,
i tried this out and i think the problem are your
'&' within your formula, it worked for me when i deleted them.
What worked for me was using a string variable for the active cell:
Dim ActiveCell As String
ActiveCell = Excel.ActiveCell
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OR(ActiveCell=""Total DG"",$A1=""Total VU"")"
Selection.FormatConditions(1).Interior.ColorIndex = 30
and also using a variable holding just a String with the manually given cell name:
Dim ActiveCell As String
ActiveCell = "A1"
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OR(ActiveCell=""Total DG"",$A1=""Total VU"")"
Selection.FormatConditions(1).Interior.ColorIndex = 30