Re: Excel: force uppercase

[Bill <billzbubb@xxxxxxxxxx>]

Dan wrote:

> This is a niggle, doesn't qualify as a nag, somewhat of a curiosity,
> but definitely a "would be nice if".  <g>
>
> I would like a way for lowercase letters entered in an Excel cell to
> automagically be uppercased when focus leaves the cell.
>  
Dan,

Here's one way to upper whatever value is entered in cell G1:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

   Application.EnableEvents = False
  
   If Target.Row = 1 And Target.Column = 7 Then
       Target.Value = UCase(Target.Value)
   End If
  
   Application.EnableEvents = True
 
End Sub

Bill