I have used Ron e Bruin's excellent codes to e-mail out from Excel for
sometime, but suddenly I'm getting a debug message "unable to get the
specific/cells property of the range class" on the following code and
I don't know why. The procedure has worked for weeks and no problem.

Cells A3 & A4 both contain valid e-mail addy's, so can't understand
why its debugging now

Thanks



For Each cell In ThisWorkbook.Sheets("Data") _
.Range("A3:A4").Cells.SpecialCells(xlCellTypeConst ants)
If cell.Value Like "?*@?*.?*" Then
strto = strto & cell.Value & ";"
End If
Next
strto = Left(strto, Len(strto) - 1)