excel 2000

Ahhh whoops!
Missed a line.
:(

Code:

---

Sub Auto_Open()

Dim AlarmdateMonth As Integer
Dim AlarmdateDay As Integer
Dim Alarmdate As Date

Sheets("S1").Activate

Alarmdate = Cells(3, 3)
AlarmdateMonth = Month(Cells(3, 3)) - 1
AlarmdateDay = Day(Cells(3, 3))

If AlarmdateMonth = Month(Now) Then
If AlarmdateDay = Day(Now) Then
MsgBox "Today is one month prior to " & Alarmdate, vbInformation, "Alarm"
Cells(3, 3).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End If

End Sub

---