Reply to thread

Message: [QUOTE="Claus Busch, post: 7424451"] Hi Howard, Am Sat, 23 Nov 2013 10:26:33 +0100 schrieb Claus Busch: I ran you code and so it deleted all cells I misunderstood your problem. Try: Sub XNumOut() Dim DeleNum As Range Dim c As Range Dim rngC As Range Dim varSheets As Variant Dim DelC As Range Dim i As Long Dim Lrow As Long With Sheets("Sheet1") Lrow = .Cells(.Rows.Count, 1).End(xlUp).Row Set DeleNum = .Range("A1:A" & Lrow) End With varSheets = Array("Sheet2", "Sheet3", "Sheet4") For i = LBound(varSheets) To UBound(varSheets) With Sheets(varSheets(i)) For Each c In DeleNum .UsedRange.Replace What:=c, Replacement:="", _ LookAt:=xlPart, SearchOrder:=xlByRows, _ MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next End With Next End Sub Regards Claus B. [/QUOTE]