Hello...
I have the following Macro:
Sub Datex()
dTime = Now + TimeValue("00:00:05")
Application.OnTime dTime, "Datex"
With Sheets("D 0-1")
If Now - Date >= TimeValue("00:00:00") And Now - Date <= TimeValue("17:00:00") Then
.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = .Range("A1").Value
.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = .Range("A2").Value
End If
End With
End Sub
Every time I run it, I get the following message: The macro 'XX!Datex' cannot be found.
Any ideas on how to solve this...???
Thanks
JC
I have the following Macro:
Sub Datex()
dTime = Now + TimeValue("00:00:05")
Application.OnTime dTime, "Datex"
With Sheets("D 0-1")
If Now - Date >= TimeValue("00:00:00") And Now - Date <= TimeValue("17:00:00") Then
.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = .Range("A1").Value
.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = .Range("A2").Value
End If
End With
End Sub
Every time I run it, I get the following message: The macro 'XX!Datex' cannot be found.
Any ideas on how to solve this...???
Thanks
JC