Evaluation of Formula Not Occurring

[reberryjr]

I'm trying to evaluate a formula through VBA Code, but the actual evaluation isn't occurring. When entered as just a formula via VBA, I get the expected results. It's when I try adding the Evaluate method, I get #Value errors. Here is the code that I have tried using:

If iALR > 1 Then
On Error Resume Next
    Range("BN2:BN" & iALR).SpecialCells(xlCellTypeVisible).Value = "=IF(RC[-19]>RC[-54],""POC Filed"","""")"
    'Range("BN2:BN" & iALR).SpecialCells(xlCellTypeVisible).Value = Application.Evaluate("=IF(RC[-19]>RC[-54],""POC Filed"","""")")
    'Range("BN2:BN" & iALR).SpecialCells(xlCellTypeVisible).Value = Application.Evaluate("IF(RC[-19]>RC[-54],""POC Filed"","""")")
    'Range("BN2:BN" & iALR).SpecialCells(xlCellTypeVisible).Value = Evaluate("IF(RC[-19]>RC[-54],""POC Filed"","""")")
    'Range("BN2:BN" & iALR).SpecialCells(xlCellTypeVisible).Value = Evaluate("=IF(RC[-19]>RC[-54],""POC Filed"","""")")
Else
End If

 

[SpillerBD]

" " ?

FormulaR1C1

 

[Fluff]

You can use

   With Range("BN2:BN" & iALR)
      .Value = Evaluate("IF(" & .Offset(, -19).Address & ">" & .Offset(, -54).Address & ",""POC Filed"","""")")
   End With

But it doesn't work with non contiguous ranges.