I suspect a collection would be better

in frmCheckCells. code module

Public Errors as New Collection


the following would change to
function check4code2()
....

frmCheckCells.Errors.add "Type 2","Type 2"


end function


Then

Sub SearchX()

lbltxtErrorFound = ""
For eacht strError in Errors
lbltxtErrorFound = lbltxtErrorFound+ strError
next strError

End sub

DM Unseen