Uppercase in non adjacent columns

G

Guest

I have the following code which will force upper case in column "C":

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Not Application.Intersect(Target, Range("C9:C47")) Is Nothing Then
' Target(1).Value = UCase(Target(1).Value)
Target(1).Value = StrConv(Target(1).Value, vbUpperCase)
End If
Application.EnableEvents = True

End Sub

I would like to adapt this code to work in non-adjacent columns; ie columns
"A" and "C".
 
D

Dave Peterson

Another option:

If Not Application.Intersect(Target, Me.Range("a9:a47,C9:C47")) Is Nothing Then

The me keyword refers to the object holding the code--in this case, it's that
worksheet.
 

Ask a Question

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.

Ask a Question

Similar Threads

Macro converts time entered in column E and F from Indian time to CST( without daylight saving) 1
Copying Cell Conflict with Worksheet Change to UpperCase 4
Change_Event troubles, no error & no work. 6
Proper case using VBA 1
Place a date in another cell only if adjacent cell = "X" 1
auto convert to upper case 1
running change events to macros 8
Junp start my Select Case Macro 12

Top