Dear Team,

I am having 2 sheet on my workbook ( "Data" & "Sheet3" )

I am typing vale on "Data" and copying to "Sheet3" using =Data!C4 formula where the cells (B5:F6) which is merged.

I want to update all the first letter uppercase on "Sheet3"

I am writing the following code on "Sheet3" 
Sub CapsFirstLetter()Dim Cell As Range


With ActiveSheet
    For Each Cell In Application.Intersect(.UsedRange, .Range("B5:F6")).Cells
        Cell.Formula = UCase(Left(Cell.Text, 1)) & LCase(Mid(Cell.Text, 2))
    Next Cell
End With


End Sub
But it is not working.

Can any one please help me to solve this