Capitalize all words on input

[Danny]

Try this macro:
Macro MUST be in the SHEET

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
'Make sure to identify the Range(s)
If Not Application.Intersect(Target, Range("A1:A20")) Is
Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub

 

[shaggles]

Thanks. That worked. The only thing is I didn't explain
myself properly. I'm trying to capitalize just the first
letter of each word. What would I use in place of UCase
to accomplish that?

 

[Thomas]

Target(1).Value = StrConv(Target, vbProperCase)

Thanks. That worked. The only thing is I didn't explain
myself properly. I'm trying to capitalize just the first
letter of each word. What would I use in place of UCase
to accomplish that?