Screenshot 2018-12-15 14.22.38.png
Screenshot_9.jpg
Macro :
Sub formating()
Dim L As Long
L = Range("A1", Range("A1").End(xlDown)).Rows.Count
ActiveSheet.Select
Columns("B:B").Select
Selection.NumberFormat = "General"
Range(Cells(2, 2), Cells(L, 2)).FormulaR1C1 = _
"=IFERROR(REPLACE(UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999),FIND(""'"",UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999)),2,UPPER(MID(UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999),FIND(""'"",UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999)),2))),UPPER(LEFT(RC[-1],1))&MID(LOWER(RC[-1]),2,999))"
End Sub
Hi Team,
I want to format text as in second image. I dont know much about vba. Can you please advise.
Thanks,
Gajjo
Bookmarks