Utilize:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "C12" Then
Application.EnableEvents = False
Target.Value = StrConv(Target.Value, vbUpperCase)
Application.EnableEvents = True
End If
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 20/05/2016 11:27 pm