Macro help please

[pedie]

Macro help please

In a sheet1, range A1 to D1000 has datas...including customers account number. I want the macro to replace all the account number with dats.
I want all the numbers no matter what kinda number it is from 1-10 replace it with dots...

Please design a macro...

Thanks again!

 

[p45cal]

Sub blah()
For Each Cll In Range("A1:D1000").Cells
  For i = 0 To 9
  Cll.Value = Replace(Cll.Value, CStr(i), ".")
  Next i
Next Cll
End Sub

be aware it will replace any formulae with values, and make sure the right sheet is the active sheet before running it.

 

[VoG]

Try

Sub Dots()
Dim LR As Long, i As Long, j As Integer, c As Range
LR = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("A1:D" & LR)
    For j = 0 To 9
        c.Value = Replace(c.Value, j, ".")
    Next j
Next c
End Sub

Edit: Drat!

 

[pedie]

Thank you so much!!!