Default Value based on another cell using VBA

[Yattaro]

Hello

I would like to have one cell "B1" have a default value based on cell "A1".
I've been able to assign a static default value ( 7 ) using this VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
If Range("B1").Value = "" Then
Range("B1").Value = 7
End If
End If

Any help would be excellent

Thank you for your time.

[Tinbendr]

Please Login or Register  to view this content.