problema con macro excel

estoy realizando una macro en excel y me da un fallo tiene que ponerse el fondo amarillo y poner caducado
estoy usando offset y me sale todo bien menos en tres columnas que sale desplazado tres columnas mas alla

Sub Caducadas()
'asigna a la variable ws la hoja*
Dim ws As Worksheet
'rango de celdas'
Dim celda, celdas As Range
'asigna la hoja'
Set ws = Worksheets("2022")
'selecciona las celdas'
Set celdas = ws.Range("A10", Range("A10").End(xlDown))
'recorre las celdas offset coordenadas de las celdas'
For Each celda In celdas
'si la lo que hay en la celda es mayor que 1 escribe caducado y  lo pone en amarillo'
If celda.Offset(3, 3).Value <= 1 Then
celda.Offset(3, 3).Value = "caducado"
celda.Offset(3, 3).Interior.ColorIndex = 27
Else
celda.Offset(3, 3).Interior.Pattern = xlNone
celda.Offset(3, 3).Value = ""
End If
Next celda
End Sub

Private Sub Workbook_Open()
Call Caducadas
End Sub


You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login