On Nov 17, 12:49*pm, Mike H wrote:
Hi,

And I suggest this instead to prevent formula being converted to values.

*For Each rng In Range("H3:H" & RowCount + 3)
* * * *rng.Formula = UCase(rng.Formula)

Mike

"sylink" wrote:
The code below runs well when used with the worksheet function
'PROPER' When substituted with the function 'UCase', it aborts. How do
I tweak the code to run with UCase.

ActiveCell.CurrentRegion.Columns("A:A").Select
*RowCount = Application.Count(Columns(1))

* * * * For Each rng In Range("H3:H" & RowCount + 3)
* * * *rng.Value = Application.WorksheetFunction.UCase(rng.Value)

* * Next

Worked excellently. Thanks