Como aplicar formato a celda variable, por favor.

Hola:

Estoy intentando diferenciar mediante dar color a la celda de destino, de
que hoja está cogiendo el dato.
Las sentencias que estoy utilizando son con variable, no enunciada, del
tipo:
'AnPr
AnPr = Sheets("Datos ayer").Cells(UNAYER, 9)
If AnPr = 0 Then
AnPr = Sheets("Datos hoy").Cells(UNHOY, 9)
End If
Cells(i, 10) = AnPr

Estoy intentando introducir una línea de formato, en el condicionante,
pero
no me funciona:
'AnPr
AnPr = Sheets("Datos ayer").Cells(UNAYER, 9)
If AnPr = 0 Then
AnPr = Sheets("Datos hoy").Cells(UNHOY, 9)
Sheets("PT").Cells(i, 10).Interior.ColorIndex = 6
End If
Cells(i, 10) = AnPr

Me podéis, por favor, comentar si sabéis de alguna manera de aplicar a una
celda variable un formato de celda o texto determinado, para poder
diferenciar si el dato proviene de una hoja u otra.

Como siempre, un millón de gracias por adelantado, por vuestro interés.

Reicibid un cordial saludo.

JC

AnPr = Sheets("Datos ayer").Cells(UNAYER, 9)

If AnPr = 0 Then

AnPr = Sheets("Datos hoy").Cells(UNHOY, 9)

Sheets("PT").Cells(i, 10).Interior.ColorIndex = 6

End If

Cells(i, 10) = AnPr

Cells(i, 10) = AnPr