If Weekday() = vbSaturday Or Weekday() = vbSunday Then

Good day,
I am looking for help on proceeding to the following:

I have codes that works as ActiveCell.Row therefore if my ActiveCell.Row "I" is double I will have a calendar (Monthview) generate and the user will select a date. If the user selects a weekend date then my calendar will have a msgbox saying they cannot choose a Weekend date:

Please Login or Register  to view this content.

In my sheet, when everything is done properly, I have the following code that will be added:

Please Login or Register  to view this content.

I need that If my ActiveCell.row, "K" that when a user selects a date in I and that K's is on the weekend, then to populate a msgbox to say the same thing.

Problem is the following: At the same time that my I is triggered, my Column J and K will have the following:

Please Login or Register  to view this content.

Is there a way to make it look, after the fact, to generate an error message if the date, in my Activecell.row "K", is on a weekend and if so Generate the error msg then select my ActiveCell.Row "J"?

I don't need a loop, just an error message then select my actvrow J.

I have modify the following code to have a value in Column K:

Please Login or Register  to view this content.

Bump ...


...

Found the solution with help from Chandoo's Luke M:

Please Login or Register  to view this content.

Please Login or Register  to view this content.