Question : XL  Placing a value in an empty Cell with a Visual Basic Rprogram.

Pleace see enclosed  XL-sheet where my problem is explained and I have tried a solution which does not work. I myself have tried for more tha 7 hours.
Regards
H Wibye

Answer : XL  Placing a value in an empty Cell with a Visual Basic Rprogram.

See the attached workbook. I have added a worksheet change event handler to set F16 when when D16 is changed:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, [D16]) Is Nothing Then
        If [D16] > 5 Then
            [F16] = "ABCD"
        Else
            [F16] = ""
        End If
    End If

End Sub

Kevin

Test.xls (26 KB) (File Type Details)