Code to Remove Shading Not Working

[Ark68]

I have this chunk of code:

If llastrow < 2 Then
     .Rows("13:34").Insert Shift:=xlDown
     llastrow = 34
     With .Range("A13:Q34").Cells
          .Interior.ColorIndex = xlNone
          .Borders(xlInsideHorizontal).Weight = xlHairline
     End With
End If

It's purpose is simple .... remove existing shading of cells in range A13:Q34, and leave behind hairline horizontal lines.

I am unable to get the shading removed with .Interior.ColorIndex = xlNone.

Thoughts?

 

[shg]

Got conditional formatting?

 

[Ark68]

I think I do ... how can I remove it then for that range?

 

[Ark68]

I added the line in blue, with no success.

If llastrow < 2 Then
     .Rows("13:34").Insert Shift:=xlDown
     llastrow = 34
     With .Range("A13:Q34").Cells
          .FormatConditions.Delete
          .Interior.ColorIndex = xlNone
          .Borders(xlInsideHorizontal).Weight = xlHairline
     End With
End If

 

[shg]

What With statement surrounds the code?