Extra E-Mail in a Column Q

[Seanie]

I have the code below (ex Ron de Bruin) which attempts to extract all
e-mail addresses in column BJ, my problem is that the values in BJ are
formula based and thus it debugs, if I manually type an address in BJ
it works fine, how could I tweak below?

Thanks


For Each cell In ThisWorkbook.Sheets("XYZ") _
.Columns("BJ").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" Then
strto = strto & cell.Value & ";"
End If