EDateエラーの回避コードをおしえてください

Excel2007でマクロ作成中の初心者です。 セルＧ2の1か月前の日付が、セルＭ5と同じときは、「計算済みです」として それ以外は、更新しますか？のコードを作成中 Private Sub CommandButton3_Click() Dim myBtn As Integer Dim myMsg As String, myTitle As String Sheets("計算").Select If EDate(Range("G2").Value, -1).Value = Range("M5").Value Then myMsg = Format(Range("G2").Value, "ggge年m月") & "分 は計算済みです。" & Chr(13) & "これを 　" & Format(Worksheets("管理").Range("D3").Value, "m月") & "分 に更新しますか？" myTitle = "単価の確認" myBtn = MsgBox(myMsg, vbYesNo + vbExclamation, myTitle) End If If myBtn = vbYes Then Exit Sub Sheets("計算").Select End If End Sub ここまで作ったら、If EDateのところで「コンパイルエラー」が発生します。エラー回避のコード教えてください。