Excel Macro to Make First Letter Capital of a Column

Excel Macro to Make First Letter Capital of a Column:
Macro Code:

Sub Cap1()
Dim cell As Range
'
For Each cell In Range("A1", Range("A" & Cells.Rows.Count).End(xlUp))
If Not IsEmpty(cell) Then
cell.Formula = UCase(Left(cell.Formula, 1)) & LCase(Right(cell.Formula, Len(cell.Formula) - 1))
End If
Next cell
End Sub