VBA issue: strFormulas returning 1004 error

[jaspalsd]

Hi,

I've applied similar logic to two other macros but for some reason I am unable to figure out what I'm doing wrong

Sub sfortest()Sheets("Cleanup").Select
Range("M2").Select




   
    Dim Lastrow As Long
    Lastrow = Range("L" & Rows.Count).End(xlUp).Row


    Dim strFormulas(1 To 2) As Variant


    With Sheets("Cleanup")
        strFormulas(1) = "=IFERROR(VLOOKUP(G2,'HCBF RV Portfolio'!G:Q,9,0),"")"
        strFormulas(2) = "=IFERROR(VLOOKUP(G2,'HCBF RV Portfolio'!G:Q,11,0),"")"
   'issue on this line' .Range("M2:N2").Formula = strFormulas
        .Range("M2:N" & Lastrow).FillDown
        
        
        End With
        
    
    
   
    End Sub

I am probably doing some very stupid!

I will appreciate any help,

Thanks!

 

[Fluff]

Try

   With Sheets("Cleanup")
      strFormulas(1) = "=IFERROR(VLOOKUP(G2,'HCBF RV Portfolio'!G:Q,9,0),[COLOR=#ff0000]""""[/COLOR])"
      strFormulas(2) = "=IFERROR(VLOOKUP(G2,'HCBF RV Portfolio'!G:Q,11,0),[COLOR=#ff0000]""""[/COLOR])"
      .Range("M2:N" & Lastrow).Formula = strFormulas
   End With

 

[jaspalsd]

Thanks, the double quotations did me....

I'm looking to apply alternate row shading to this range and I've come across a few methods but I'm wondering if it's possible to create strFormulas(3) and apply the formula of MOD(ROW(),2) and relate it a particular shade?

The range is within the formula above e.g. M2:N & LastRow

Thanks again for your help Fluff!

 

[Fluff]

A formula cannot change the format, unless you put in in Conditional Formatting