hi zbor
try.. something like
For Each Cell In TextCells
Cell.Value = UCase(Cell.Value)
Next Cell