Change end of month to 24th
 

How can this be modified to check to see if it's the 24th
of the month, not the end.

Thanks!!!


Sub RefreshMeters()

If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then
MsgBox "This is the last day of the Month. Your
data will be updated."
ActiveWorkbook.RefreshAll

Else
MsgBox "This is NOT the last day of the Month. Your data
has NOT been updated."
End If

Change end of month to 24th
 

Hi

If Date = DateSerial(Year(Date), Month(Date), 24) Then
or
If Date = DateSerial(Year(Date), Month(Date), 24) Then

--
HTH. Best wishes Harald
Followup to newsgroup only please

"Rhonda" skrev i melding
...
How can this be modified to check to see if it's the 24th
of the month, not the end.

Thanks!!!


Sub RefreshMeters()

If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then
MsgBox "This is the last day of the Month. Your
data will be updated."
ActiveWorkbook.RefreshAll

Else
MsgBox "This is NOT the last day of the Month. Your data
has NOT been updated."
End If

Change end of month to 24th
 

Or

IF Day(Date) = 24 THEN

or

IF Format(Date,"dd") = "24" THEN


I think.

Chrissy.


"Harald Staff" wrote in message ...
Hi

If Date = DateSerial(Year(Date), Month(Date), 24) Then
or
If Date = DateSerial(Year(Date), Month(Date), 24) Then

--
HTH. Best wishes Harald
Followup to newsgroup only please

"Rhonda" skrev i melding
...
How can this be modified to check to see if it's the 24th
of the month, not the end.

Thanks!!!


Sub RefreshMeters()

If Date = DateSerial(Year(Date), Month(Date) + 1, 0) Then
MsgBox "This is the last day of the Month. Your
data will be updated."
ActiveWorkbook.RefreshAll

Else
MsgBox "This is NOT the last day of the Month. Your data
has NOT been updated."
End If