Make zeroes in Selection nothing ""
This will do it for you:
Sub DelZeros()
For X = 1 To 1
Dim redRng As Range
Set redRng = Range("A1", Range("J100").End(xlUp))
For Each Cell In redRng
If Cell.Value = 0 Then
Cell.Value = ""
End If
Next Cell
Next X
End Sub
Remember to make a back of your Excel file, just in case the result
is...ummmm...unintended. It's a total PITA to try to recover lost data.
Also, notice the range, A1:J100. Change to suit your needs.
Regards,
Ryan---
--
RyGuy
"MikeF" wrote:
My code navigates to and selects a range, then needs to change all zeroes to
blanks, nothing, "" .
Is there a quick trick to this that I'll slap my forehead over?
Thanx,
- Mike
|