Macro for creating letters to UPPER letters

I have words in cell range (i.e. A1:A1000) and I want them to became upper letters.

Excel forum to EXCEL FORUM

Please macro wich I can assign to some button

I would use Evaluate

Public Sub ConvertUpper()
With Range("A1:A1000")
    .Value = Evaluate("IF(ISTEXT(" & .Address & "),UPPER(" & .Address & "),REPT(" & .Address & ",1))")
End With
End Sub

hi zbor
try.. something like

For Each Cell In TextCells
Cell.Value = UCase(Cell.Value)
Next Cell

I should have added that if you wanted the range to be based on active selection then

Public Sub ConvertUpper()
Dim rngArea As Range
For Each rngArea In Selection.Areas
    With rngArea
        .Value = Evaluate("IF(ISTEXT(" & .Address & "),UPPER(" & .Address & "),REPT(" & .Address & ",1))")
    End With
Next rngArea
End Sub

(evaluate essentially allows up to update en masse without iteration - here the iteration is only per range area should you select multi non-contiguous ranges, all cells within that area are updated simultaneously)

Working! Thx!

Y, works too

(and when I said few months ago that I will start learning macro soon... I lie )