Change end of month to 24th

[Rhonda]

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

 

[Harald Staff]

Hi

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

 

[Chrissy]

Or

IF Day(Date) = 24 THEN

or

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


I think.

Chrissy.