Apply ProperCase to dynamic range in a column

[Vincent88]

Hi, Appreciate any help to modify the code to apply the function to the dynamic range in a column only not whole column ?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim LastRow As Long
LastRow = Range("L2").End(xlDown).Row

If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ErrHandler:

If Target.Column = 12 Then
If Not IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target.Value = StrConv(Target.Text, vbProperCase)
Application.EnableEvents = True
End If
End If
ErrHandler:
Application.EnableEvents = True
End Sub

 

[Fluff]

Which cells do you want it to work on?

 

[Vincent88]

Hi Fluff, range in column L

 

[Fluff]

But which cells if you don't want it on the whole column?

 

[Vincent88]

Hi, Row 1 and those rows outside the dynamic range.

 

[Vincent88]

Hi, the rows in dynamic range will grow, right ! So it should be the last row

 

[Fluff]

At the moment your code will work on any cell in col L, if that is not what you want, what cells in col L should it work on?

 

[Vincent88]

Hi Fluff,
What I want if my table range is from L2 to L10, then the propercase function works within it ; if my range grows to L 21, then the function works from L2 to L21. That's why I create the LastRow Long but I do not know how modify it ?

 

[Fluff]

If your data is currently L2 to L10 & you enter something in L25 do you want that changed?
Also do you have any blanks cells in col L ?

 

[Vincent88]

Hi Fluff,
To answer your quest : No function in L25, and I have blank cells outside the range in column L.