message box:Private Sub Workbook_Open()

[arnab0711]

Hi All,
I am attaching a work sheet where in the a message box will pop up on file open,
now I want to add a text as "# of Rcs expired are"
the macro which I have already created is
Private Sub Workbook_Open()
MsgBox Sheets("KolWB").Evaluate("COUNTIF(I:I,TODAY())")
End Sub

[teylyn]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[DonkeyOte]

FWIW - also a duplicate. Stick to the original please.