forced caps

[steve hill]

I am asking a user to enter data for a query parameter This has to be in capitals to work is there a way of automatically changing what has been entered in the required cell to capitals
thanks

steve

 

[lenze]

Private Sub WorkSheet_Change(ByVal Target as Range)
If Target. Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

lenze

 

[Yard]

And in a formula you could use the

=UPPER(A1) formula