código

Sub convmays() Set rgColA = Range("b8:i9") Dim rg As Range For Each rg In rgColA.Cells rg.Value = UCase(rg.Text) Next End Sub