Include array reference into loop

For i = LBound(Para) To UBound(Para)
a = WS.Shapes("BtnRAP1P" & i).Visible = IIF(WS.Range("L" & a).Value = FAUX, True, False)
Next i

it should read IF