Workbook open command

[redspanna]

Hi all,

when my workbook is opened I want the following to happen...

check that cell E21 on sheet1 is blank...

if it is and cell A1 holds date equal to todays date (format yyyy-mm-dd) then select cell E21

if it isn't blank and cell A1 is blank (ie no date) then show msg box "TEST""

thanks in advance

 

[njimack]

Private Sub Workbook_Open()

Application.EnableEvents = False

With Sheets("Sheet1")
    If .Range("E21") = "" And .Range("A1") = Date Then
        .Range("E21").Select
    Else: MsgBox "TEST"
    End If
End With

Application.EnableEvents = True

End Sub

 

[redspanna]

Thanks Neil, might be back for back up question..but thanks for this