vba excel argomento Target

[rafdepet]

Salve ragazzi,

in base al codice che posterò, vorrei evitare di ripetere per 3 celle la stessa operazione.
Praticamente dovrei evidenziare le 4 celle e agire sul font. Come potrei fare?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errore
If Intersect([a4:a250], Target) Is Nothing Then Exit Sub
If Target.Value > 0 Then
Target.Offset(0, 1).Font.ColorIndex = xlAutomatic
Target.Offset(0, 2).Font.ColorIndex = xlAutomatic
Target.Offset(0, 3).Font.ColorIndex = xlAutomatic
Target.Offset(0, 4).Font.ColorIndex = xlAutomatic
Else
errore:
Target.Offset(0, 1).Font.ColorIndex = 16
Target.Offset(0, 2).Font.ColorIndex = 16
Target.Offset(0, 3).Font.ColorIndex = 16
Target.Offset(0, 4).Font.ColorIndex = 16
End If

End Sub

ovviamente ho provato con:

Target.Offset(Target.Cells, Target.Offset(0, 4)).Font.ColorIndex = 16
Target.Offset(Target.Cells, Target.Offset(0, 4)).Font.ColorIndex = xlAutomatic

ma non va . utilizzo excel 2013

Grazie per l'aiuto

Raf

[Alexsandra]

prova così.

Private Sub Worksheet_Change(ByVal Target As Range)
     
If Intersect(Range("A1:A10"), Target) Is Nothing Then Exit Sub
    
    If Target.Value > 0 Then
 
    Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Font.ColorIndex = xlAutomatic
    
    Else
    Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Font.ColorIndex = 16
       End If
          
End Sub

PS: cambia il range con il tuo