Sub caps_it()
For Each r In Selection
If Not IsEmpty(r) Then
r.Value = UCase(r.Value)
End If
Next
End Sub

--
Gary''s Student - gsnu200720


"Pekka" wrote:

Hi
How could I change (VBA code) every lowercase letter in a certain range into
a uppercase letter ?