VAGAS DA HORA - EMPREGOS, DIARISTAS, AGÊNCIAS DE EMPREGOS, CONCURSOS, SERVIÇOS INDIVIDUAIS

ESSE CÓDIGO TORNA MAIÚSCULA O TEXTO DIGITADO NA CÉLULA: Sub TrocaParaMaiusculas() If (Not ActiveCell.HasFormula) And (Not IsNumeric(ActiveCell.Value)) Then ActiveCell.Value = UCase(ActiveCell.Value) End If End Sub