Format Empty Cells

data is stored in the rota sheet, rota number in coloum B and the name in coloum C the code compares the contents of colum b in rota sheet to coloum B in the other sheets then the name from coloum c in rota sheet is inserted next to the corisponding rota number for the next 7 days. i want the cells in sheet monday tuesday ect to format themselves to yellow if the name is omited in the rota sheet i cant seem to get the code to jump to col when the cell is empty i've highlited in red the parts giving me a problem unfortunatly i cant upload the sheet as its over the size limit

Sub FIND()
START:
WORK = 0
DA = 0
Line = 0
Sheets("ROTA").Activate
RO = RO + 1
RA = ("B") & RO
Range(RA).Activate
ROTA = ActiveCell
ActiveCell.Offset(0, 1).Activate
Name = ActiveCell
If RO = 200 Then Goto Quit
GH:
LIN:
Line = Line + 1
TREE = ("b") & Line
Range(TREE).Activate
If ActiveCell = ROTA Then Goto NAMED
If Line >= 200 Then GoSub LIST
If DA = 8 Then Goto START
Goto LIN
NAMED:
ActiveCell.Offset(0, 1).Activate
ActiveCell = Name
If Name = ("") Then GoSub COL

ER:

Goto GH
Exit Sub
LIST:
Line = 0
DA = DA + 1
If DA = 1 Then Sheets("SUNDAY").Activate
If DA = 2 Then Sheets("MONDAY").Activate
If DA = 3 Then Sheets("TUESDAY").Activate
If DA = 4 Then Sheets("WEDNESDAY").Activate
If DA = 5 Then Sheets("THURSDAY").Activate
If DA = 6 Then Sheets("FRIDAY").Activate
If DA = 7 Then Sheets("SATURDAY").Activate
Return
COL:..................