Macro to tell me if any dates are not a Monday

[tonywatsonhelp]

Hi Everyone,
I have a list of dates that update everyday,
All i need is a macro that will tell me if any of those dates are not a monday

So the data is in column I,
all i need for now is a macro that checks the dates in column I, ignores blank cells and tells me if any of the dates are not a monday, all cells will only contain either a date or a blank.

Please help if you can

Thanks
Tony

 

[gordsky]

assuming your dates are in a standard format perhaps something like this

set range = range(enter your range here)
for each cel in range
   
  If cel <> "" then
        If Weekday(Cel) <> 2 then
            msgbox "date is a monday"
          else
                msgbox  "date is not a monday"
        end if
    
    else
  end if

next cel

 

[johnnyL]

@gordsky

You need to swap your msgbox's or change the <>2 to = 2.

 

[gordsky]

@gordsky

You need to swap your msgbox's or change the <>2 to = 2.

Whoops, thanks for the catch JohnnyL, the correct code should be

set range = range(enter your range here)
for each cel in range

 If cel <> "" then
        If Weekday(Cel) = 2 then
            msgbox "date is a monday"
          else
                msgbox  "date is not a monday"
        end if
    
    else
  end if

next cel

 

[tonywatsonhelp]

Thanks Gordsky,
This was exactly what i needed
Tony