Zelle wird nicht berechnet

Sub Worksheet_SelectionChange(ByVal Target As Range)

folgenden Befehl stehen

If (Cells(z, R16).Value) > 0 Then
Cells(z, R18).Value = Cells(z, R16).Value + zd
Else
Cells(z, R18).Value = Cells(z, R14).Value + zd
End If

Die entsprechende Zelle (z,18) wird nur neu berechnet wenn ich nach Änderung einer der Zellen (z,R16) oder (z,R14) nochmals in diese Zelle springe.
Hat einer eine Idee?
Danke für Eure Hilfe.
Gruß Günter