Skip a Cell if Two Cells equal one another

[maomao]

I have this VBA, which is great, but in order to optimize it, I was wondering if there was a way to skip cells if two cells equal one another?

here is the code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Row = 248 And .Column > 7 And .Column < 556 Then
.Offset(-4).GoalSeek Goal:=.Value, ChangingCell:=.Offset(-5)
End If
End With
End Sub

 

[Norie]

Which 2 cells?

 

[maomao]

It would be if

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If .Row = 248 And .Column > 7 And .Column < 40 were to equal .Offset(-4).

 

[Norie]

Do you mean that if Target = Target.Offset(-4)?

 

[maomao]

Yes!

 

[Norie]

Try this then.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    With Target
        If .Row = 248 And .Column > 7 And .Column < 556 Then
            If .Value = .Offset(-4).Value Then Exit Sub
            .Offset(-4).GoalSeek Goal:=.Value, ChangingCell:=.Offset(-5)
        End If
    End With

End Sub

[/code]