vba to clear negative numbers to

[BORUCH]

hi

i have the below code

Sub clearcrfromcell()
  Dim Num As String, V As Variant, Rng As Range
  Num = InputBox("What number do you want to clear?")
  For Each V In Split(Num, "-")
    Columns("D").Replace V, "", xlWhole, , , , False, False
    On Error Resume Next
    For Each Rng In Columns("D").SpecialCells(xlBlanks).Areas
      Rng.Offset(, 1).Formula = "=" & Rng.Offset(, -1).Address(0, 0)
      Rng.Value = 0
    Next
  Next
end sub

for some reason its not clearing numbers that are negative i would like it to clear both

thanks

 

[rollis13]

That's because you are using the minus sign as separator, here: Split(Num, "-")
The macro allows you to enter multiple numbers at the same time in the input box separated by the minus sign.
Use instead a comma as separator if it isn't the decimal separator in your language, elsewise use other character like ; or : .