VBA POP UP BOX TO COME UP ON SHEET ACTIVATE UNLESS CELL IS OCUPIED

[Craig_Moore]

Hi All
i have the code below which is simple enough but is there a way for me to stop the popup box if the cell "O1" already has the date in

Thanks

Craig

Private Sub Worksheet_Activate()

Dim QtyEntry As String
Dim msg As String

msg = "WHAT IS THE DATE OF PRODUCTION (PRESS CANCEL IF DATE ALREADY IN)"
QtyEntry = InputBox(msg)
ActiveSheet.Range("O1").Value = QtyEntry

End Sub

 

[mumps]

Try:

Private Sub Worksheet_Activate()
    Dim QtyEntry As String
    If IsDate(Range("O1")) Then
        MsgBox ("Date already exists.")
        Exit Sub
    Else
        QtyEntry = InputBox("WHAT IS THE DATE OF PRODUCTION?")
        If QtyEntry = "" Then Exit Sub
        ActiveSheet.Range("O1").Value = QtyEntry
    End If
End Sub

 

[Craig_Moore]

hi the above works great thanks for helping

 

[mumps]

You are very welcome.