end of month to 24th

[Rhonda]

Can someone please change this code to update the 24th of
each instead of thend?


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."

' RefreshMeters Macro
' Macro recorded 30/09/2003 by rhocarit
'
' Keyboard Shortcut: Ctrl+a
'
ActiveWorkbook.RefreshAll

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

End Sub

 

[Trevor Shuttleworth]

Rhonda

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

Regards

Trevor

 

[steve]

Rhonda,

This returns the 24th

MsgBox DateSerial(Year(Date), Month(Date) + 1, 24)

 

[Trevor Shuttleworth]

Steve

that's the 24th of next month. The previous formula calculates the last day
of the current month.

Regards

Trevor

 

[steve]

Trevor,

Thanks!

I overlooked that 'nasty' '+ 1'

 

[Harald Staff]

That's what I wrote in September. Chrissy corrected it to the far simpler
IF Day(Date) = 24 THEN

http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&selm=dXeeb.163681$JA5.4033409@news.
xtra.co.nz

Now it's October. Do we have to do this EVEY month, Rhonda ? The function should work
every month.