We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Row = 3 Or Target.Row = 4 Or Target.Row = 12 Then Target.Value = Replace(Target.Value, " ", "") End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim changed As Range, c As Range Dim cVal Const myR As String = "B5,B9" '<- Your range(s) Set changed = Intersect(Target, Range(myR)) If Not changed Is Nothing Then Application.EnableEvents = False For Each c In changed cVal = c.Value Select Case True Case IsEmpty(cVal), IsNumeric(cVal), _ IsDate(cVal), IsError(cVal) ' Do nothing Case Else c.Value = UCase(cVal) End Select Next c Application.EnableEvents = True End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.