I'm trying to set a macro to run at a set time each day.

I recorded the macro and it is named Macro1

I clicked into View Code and entered the following -

Private Sub Workbook_Open()
Application.OnTime TimeValue("15:15:00"), "Macro1"

End Sub

Then i went to Module1 and entered -

Sub Macro1()
Application.OnTime TimeValue("15:15:00"), "Macro1"
'
' Macro1 Macro
'

'

Sheets("Sheet1").Select
Columns("A:A").Select
Selection.Copy
Sheets("IMPORT SHEET").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("B3").Select
End Sub

Nothing happens! (I do have the workbook open)

Can anyone help?