VBA code error for changing cell colour

[arnab0711]

Hi,
I am writing a code which will give me a message before 10 days of expiry in column I,
also the font of them will turn red,but I am getting error with code.also attaching the sheet.

Private Sub Workbook_Open()
Dim Count As Long
Count = Sheets("KolWB").Evaluate("COUNTIF(I:I,TODAY()-10)")
If Count Then MsgBox "you have " & Count & " contracts expired"
End Sub

[arthurbr]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.