Thread: Ucase / macros
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
MrDave MrDave is offline
external usenet poster
 
Posts: 34
Default Ucase / macros

hi, trying to get ucase to work, would settle for the 1 liner that works..
just to get the command to work, but don't see the answer anywhere that
combines a couple things (if have wording right):
- event macro, mixed in with other items, or
- reference to specific cells, columns
- similar, many different cells or multiple columns, whether:
- ucase, or lcase, thanks in advance

closest script have is for separate sheet entry guesse, but not working.
have: (can I get rid of private sub & option explicit have....)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myStr As String

With Target
If .Cells.Count 1 Then Exit Sub
If .HasFormula Then Exit Sub
If Intersect(.Cells, Me.Range("A:a")) Is Nothing Then
Exit Sub
On Error GoTo ErrHandler:

'If Not Intersect(Me.Range("A:A"), .Cells) Is Nothing Then

myStr = UCase(myStr)

Application.EnableEvents = False
.Value = myStr
End If
End With

ErrHandler:
Application.EnableEvents = True
End Sub