Worksheet Change Event?

[Matty]

Hello All,

What code can I use to do the following: if the value in Cell A1 changes, recalculate Cells A2:A21 only.

Thanks,

Matty

 

[VoG]

Possibly

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
    Range("A2:A21").Calculate
End If
End Sub

 

[lenze]

If your Calculation is set to manual, you can use

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("$A$2:$A$21").Calculate
End If
End Sub

This assume A1 is changed manually as opposed to a formula

lenze

 

[Matty]

Thanks Chaps.

Cheers,

Matty