Sub Test()
    Dim rng As Range
    Dim cel As Range
        
    Set rng = Range("A1:Z100")  '<-- change range as required.
    Application.ScreenUpdating = False
        For Each cel In rng
            If cel.Value = "$-" Then cel.ClearContents
        Next cel
    Application.ScreenUpdating = True
End Sub