POWERD-by-SCHRÖDER
Germany - NRW - Jürgen Schröder - Duisburg 47053
V B A
Professionally 02: Text in capital letters to write
Script
Sub Textincapitalletterstowrite()
Dim Zeile As Long
With Tabelle10
ZeileMax = .UsedRange.Rows.Count
SpalteMax = .UsedRange.Columns.Count
For Zeile = 1 To ZeileMax
.Cells(Zeile, 1).Value = UCase(.Cells(Zeile, 1).Value)
Next Zeile
End If
End With
End Sub