Execute one macro from within another ?

Hi All,
I've attached a sample sheet here.
Basically, I've got a caendar that will be created manually for each month.

The week 1, Week 2, Week 3 etc are all hyperlinks to seperate workbooks where each sheet is for each day of the week (Mon to Fri)

I've got the macro for clearing each of these weeks already working (no problems there).
I've also got seperate macros for showing "X"s in the days of Week 1 that are in the previous month (as in this example where Mon to Wed are in June).
I'll also have macros to do the same thing for Week 5 where days of the week are in the following month.

Right now I create the calendar by hand, run the macro to clear all of the 5 weekly workbooks & then depending on what day of week 1 is the First of the month I run one of the macros that will "X" Mon to the day before the First.
I've got macros to do this where each one clears Mon, Mon & Tues, Mon, Tues, & Wed etc.

My question is:
At the end of my code to clear the 5 weeks, can I execute the relevent macro to "X" the blank days of Week 1.
So basically I'd like a simple piece of code to add on to the end that looks at Friday of week 1, if that isn't blank it looks at Thursday, if that isn't blank it looks at Wednesday & so on back to Monday.
When it finds the first blank it will run the relevent macro to "X" those days of the workbook Week 1.

My macros to "X" the days of the week are called
Blank_Monday_Week_1
Blank_Tues_Week_1
etc.

Hope I've given enough info here - Sorry if it's too much.

Thanks for any help in advance
John

Hi John,

Try changing the "E5" to Range("E5") [or instead of "E5" you can use ActiveCell since you have already selected "E5"] so that your code will look like this:

Range("E5").Select
    If Range("E5") = "" Then Application.Run "Blank_Wed_Week_1"
    Range("E12").Select
    Range("D12").Select

abousetta

Just to add an update to this post:
I've now completed this project, Thanks for the help.

What I though I was going to have trouble with was how to "X" out Week 5, but with a little thinking about it I created a Sub Routine called "Clear_Week_5_Sub" and put a call into each part of the previous code to take Week 5 into account at each step.

I'm happy to say that it works perfectly.
This is what I ended up with.

Range("G5").Select
    If Range("G5") = "x" Then
    Application.Run "Blank_Friday_Week_1"
    Application.Run "Clear_Week_5_Sub"
    Exit Sub
    Else: End If
Range("F5").Select
    If Range("F5") = "x" Then
    Application.Run "Blank_Thursday_Week_1"
    Application.Run "Clear_Week_5_Sub"
    Exit Sub
    Else: End If
Range("E5").Select
    If Range("E5") = "x" Then
    Application.Run "Blank_Wed_Week_1"
    Application.Run "Clear_Week_5_Sub"
    Exit Sub
    Else: End If
Range("D5").Select
    If Range("D5") = "x" Then
    Application.Run "Blank_Tuesday_Week_1"
    Application.Run "Clear_Week_5_Sub"
    Exit Sub
    Else: End If
Range("C5").Select
    If Range("C5") = "x" Then
    Application.Run "Blank_Monday_Week_1"
    Application.Run "Clear_Week_5_Sub"
    Exit Sub
    Else: End If
    Application.Run "Clear_Week_5_Sub"
    Range("D12").Select
End Sub

So now, no matter what day of the week a month starts on, while it's checking for that it will also check for the last day of the month in Week 5 and "X" out the days that are in the following month.

"Clear_Week_5_Sub" is a rework of the original code that works in the reverse order, so it first of all looks at Monday of Week 5, then Tuesday & so on until Friday.

Thanks again for the help from Dion & Abousetta

Best Wishes
John