You can enforce CAPS by using Data Validation, but this would just make the
user have to re-key.
Either make sure Caps Lock is on or use event code in the worksheet.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Target.Cells = Range("A1") Then Exit Sub
'for a column use this next line
' If Target.Column <> 1 Then Exit Sub
On Error GoTo ErrHandler
Application.EnableEvents = False
Target.Formula = UCase(Target.Formula)
ErrHandler:
Application.EnableEvents = True
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.