Match text in one tab against another tab that has the same text formatted

Hello,

I am working on a Calendar macro. It is just about complete but I have one issue. The end users want specific coloring to the tasks that get brought into the calendar where some words in the cell are colored differently than other words in the same cell. Some tasks are green, some are blue, some are red etc. Conditional formatting isn't an option because one cell may have just a few words red while the rest is black. I have the macro built to pull formulas in that bring over the tasks from a task list tab into the calendar however they come in black. What I want to do in the code now is paste value the calendar that has formulas once the tasks are brought over and then do a match between the tabs. When the match is found go to the task list tab that has the colored text copy it and bring it back into the calendar so that i get the coloring the end users are looking for. Any help will be appreciated.

The file is attached. On the Calendar - Macro tab you will see the macro button to build the calendar. When hitting the button you will see a window pop open to input the month and year you want the macro to build out. It will build out the numbers for the weeks and then insert rows to expand the box for each day. It then does formatting etc. finally it copies over formulas (which we are going to change how the formulas get in) from the Daily Formulas tab and pastes them into the sections on the Calendar - Macro tab. At this point the calendar is complete however the text comes in black and i need it to come in colored as they are on the first column on the task tab.

any takers?

Hello again,

Ok so I am closer. Attaching an updated file. If you look at the Sub FindStr() macro you will see it searching through the list of items on the task list finding matches and once found it copies from the task list tab over to the calendar macro tab to get the coloring however in the code I have it copy and then it goes through sh.Cells(6, fCol). You can view the code for the rest of the dimensions that set each. The issue is the 6 in sh.Cells(6, fCol). The macro is only working on row six of the calendar because of this. I need it to go through all rows of the calendar. I almost need this code to do a looper through the count of rows in the calendar running the matches on every task in the task list over every row in the calendar. Also if you look in the code I repeat the find portion of the macro over and over again going through every item in the task list. I was hoping to loop through the list of these as well to shorten the code up. Any suggestions greatly appreciated.

I figured it out. Thanks if anyone was looking into it.