Run Macro on Open and If statement

[BYUIStudent]

Hello everyone, Thank you in advanced for your help.

I would like to have a macro run when a workbook is opened but only if the current date of a cell doesn't match up with the system date.

What I have
Private Sub Autpen()


Application.ScreenUpdating = False
ActiveWorkbook.Connections("Query - Table1").Refresh
ActiveWorkbook.Connections("Query - Table2").Refresh
Application.ScreenUpdating = True
ActiveWorkbook.Save


End Sub

What I would like it to do is

If cell b3 in Sheet 3 = today's date then run above macro.

any help would be great thank you.

 

[Caleeco]

Hello,

Place this on the ThisWorkbook Module (ALT+F11, look top right in the project window)

Private Sub Workbook_Open()
    If Sheets("Sheet3").Range("B3").Value = Date Then
        Application.ScreenUpdating = False
        With ActiveWorkbook
            .Connections("Query - Table1").Refresh
            .Connections("Query - Table2").Refresh
            .Save
        End With
        Application.ScreenUpdating = True
    End If
End Sub

Let me know if it works
Cheers
Caleeco