sure thing
on error resume next
Union(ws1.Range("FinancialControlsData"), ws1.range("CompetenceData")).Specialcells(xlcelltypeconstants).interior.colorindex = xlcolorindexnone
on error goto 0
with application.worksheetfunction
If .countblank(ws1.Range("FinancialControlsData")) > 0 or .countblank(ws1.range("CompetenceData"))> 0 then
Union(ws1.Range("FinancialControlsData"), ws1.range("CompetenceData")).Specialcells(xlcelltypeblanks).interior.color = vbyellow
MsgBox "All fields need to be completed, please complete then resubmit", vbExclamation
exit sub
end if
end with
Bookmarks