Cambiar formato de celda si hay fórmula

Tengo la siguiente macro, por medio de la cual, al ingresar una fórmula en Z1:Z1000, la celda cambia de color. Lo que no se hacer, para lo cual les pido ayuda, es que haga lo mismo también en AD1:AD1000. O sea, sería un for each con dos rangos diferentes.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim C As Range
For Each C In Range("z1:z1000")
If C.HasFormula Then
C.Interior.ColorIndex = 34
Else
C.Interior.ColorIndex = 0
End If
Next
End Sub