runtime error 1004 in conditional formatting macro recording

[valmir]

Hello everyone: I'm having the above error in the line below when trying to run that macro recording for conditional formatting:
ExecuteExcel4Macro "(2,1,"";;;"")"
This is the full macro recording:

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A1").Select
    Selection.NumberFormat = ";;;"
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=IF(OR(NOT(ISNUMBER(INDIRECT(""'""&$D$2&""'!HQ5""))));OR(NOT(ISNUMBER(INDIRECT(""'""&$D$3&""'!HQ5"")))))"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    ExecuteExcel4Macro "(2,1,"";;;"")"
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

 

[Artik]

The macro recorder does not cope with recording the user's choice of cell number format. The result of its powerlessness is the code just shown.
Replace

ExecuteExcel4Macro "(2,1,"";;;"")"

with

Selection.FormatConditions(1).NumberFormat = ";;;"

Artik

 

[valmir]

The macro recorder does not cope with recording the user's choice of cell number format. The result of its powerlessness is the code just shown.
Replace

ExecuteExcel4Macro "(2,1,"";;;"")"

with

Selection.FormatConditions(1).NumberFormat = ";;;"

Artik

It worked! Thank you so much!

 

[valmir]

The VBA code works but it changed the formula and the way it changed the formula, it doesn't work as it was supposed to. The original formula:

=IF(OR(NOT(ISNUMBER(INDIRECT("'"&$D$2&"'!HQ5"))));OR(NOT(ISNUMBER(INDIRECT("'"&$D$3&"'!HQ5")))))

was changed into this:

=IF(OR(NOT(ISNUMBER(INDIRECT(""'""&$D$2&""'!HQ5""))));OR(NOT(ISNUMBER(INDIRECT(""'""&$D$3&""'!HQ5"")))))

If I manually input the original formula, it works. If I replace the original formula into the code, it gives me run-time error 5: invalid procedure call or argument!
If I use the VBA code with the changed formula, the formula doesn't work!