cac bac oi sao doan ma code nay em lam theo nhug ko Run duoc a, nho cac bac chi giao 
Function CapitalizeSentence(ByVal strContent As String) As String
Dim m As Object
strContent = LCase(strContent)
strContent = Application.Replace(strContent, 1, 1, UCase(Left$(strContent, 1)))
With CreateObject("VBScript.RegExp")
.Pattern = ".\s."
.Global = True
For Each m In .Execute(strContent)
strContent = Application.Replace(strContent, m.FirstIndex + 1, m.Length, UCase(m.Value))
Next
End With
CapitalizeSentence = strContent
End Function
https://www.facebook.com/groups/hocexcel.online/permalink/788987741200590