when Cell A1 is blank

[khalil]

hi all
please help

when cell A1 is Blank i want the same cell A1= certain text

thanks in advance

 

[VoG]

Like this

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    Application.EnableEvents = False
    Target.Offset(0, 1).Value = Date
    Application.EnableEvents = True
End If
If Target.Address(False, False) = "A1" Then
    If Target.Value = "" Then
        Application.EnableEvents = False
        Target.Value = "Student"
        Application.EnableEvents = True
    End If
End If
If Target.Address(False, False) = "BW5" Then
    If Target.Value = "" Then
        Application.EnableEvents = False
        Target.Value = "?"
        Application.EnableEvents = True
    End If
End If
End Sub

 

[khalil]

Thank you my friend,

one last thing to finish this project,

i want to secure the workbook with a user name, so nobody can copy the whole workbook and past.