It's me again. Sorry to be such a pain. I have this code below and if there are no blank cells in Range ("J2:J") i get a message box and the rest of the macros don't run. I can't figure out how to make it go to Call Macro4 if there are no blanks in cells in Range ("J2:J").

Range("J2:J").Select

Selection.SpecialCells(xlCellTypeBlanks).Select
Selection = Range("X6")
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0


End With


Call Macro4
Call Macro5
Call Macro5
Call Macro6
Call Macro7
Call Macro8
Call Macro8
Call Macro9
Call Macro10
Call Macro10
Call Macro11