convert the text in the given range to a propercase when is not connected with dot

I want to modify the below VBA where if the text is connected by a dot then only the attached word with the dot will NOT be converted to a propercase.

I have just added the worksheet, hoping for a resolution to my inquiry.

Book1.3.3.xlsm

Private Sub Worksheet_Change(ByVal Target As Range)
'Forces text to Proper case for the range A3:X39

If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub


On Error Resume Next

If Not Intersect(Target, Range("C6:K20,M6:U20,C24:K38,M24:U38")) Is Nothing Then

Application.EnableEvents = False

Target = StrConv(Target, vbProperCase)

Application.EnableEvents = True

End If

On Error GoTo 0




End Sub

REJTEJRWO KKQTWEK[P.jpg