Запретить ввод пробелов в ячейки Excel

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rg As Range, c As Range
  Set rg = Intersect(Target, [b:b])
  If rg Is Nothing Then Exit Sub
  Application.EnableEvents = False
  For Each c In rg
    c = Replace(c, " ", "")
  Next
  Application.EnableEvents = True
End Sub

Private Sub WorkSheet_Change(ByVal Target As Range)
	If Target.Count > 1 Then Exit Sub
    If Len(Target.Formula) = 0 Then Exit Sub
        Dim Probel As Boolean, iSimv%
        Probel = True
        For iSimv = 1 To Len(Target.Formula)
            If Mid(Target.Formula, iSimv, 1) <> " " Then
                'Debug.Print Mid(Target.Formula, iSimv)
                Probel = False: Exit For
            End If
        Next iSimv       
        If Probel Then
            Application.EnableEvents = False
                Target.Formula = ""
            Application.EnableEvents = True
        End If
End Sub