What about:
Code:Sub M_snb() sn = Range("B1:B3") For Each it In sn Columns(1).Replace it, "", 1 Next End SubCode:Sub M_snb() sn = Range("B1:B3") For Each it In sn Columns(1).Replace it, "", 1 Next columns(1).specialcells(4).entirerow.delete End Sub
Bookmarks