Hi all,

Can anyone help me combine these two statements into an IS statement?
Don't quite understand the VB help! Funnily enough! :) lol

Private sub Workbook_Open()
If Month (Date) < Sheet1.Range("A1").Value Then
MsgBox("This message should appear on the first of every month
and only the first time the workbook opens")
Sheet1.Range("A1").Value.Month(Date)
End If
End Sub

AND

Private Sub Workbook_Open()
If Format(Now(),"DD") = 1 Then
MsgBox("Same as above")
End If
End Sub

To explain, I would like a reminder to appear on the first day of every
month but only the first time the workbook opens as I don't want it to
annoy my end users.

Ta much for any help :)

Doo