event code to change to uppercase for 2 columns

[still learning]

Hi
How do I change this macro to have A:A and B:B change to upper case?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
    Application.EnableEvents = False
    Target.Value = WorksheetFunction.Substitute(WorksheetFunction.Proper(WorksheetFunction.Substitute(Target, "'", "z-z")), "z-Z", "'")
      Application.EnableEvents = True
End If
End Sub

for some reason, my brain won't work today !!!!

Mike

 

[Joe4]

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.CountLarge > 1 Then Exit Sub
    
'   To handle column A and column B entries
    If Target.Column = 1 Or Target.Column = 2 Then
        Application.EnableEvents = False
        Target.Value = UCase(Target.Value)
        Application.EnableEvents = True
    End If
    
'   To handle column C entries
    If Target.Column = 3 Then
        Application.EnableEvents = False
        Target.Value = WorksheetFunction.Substitute(WorksheetFunction.Proper(WorksheetFunction.Substitute(Target, "'", "z-z")), "z-Z", "'")
        Application.EnableEvents = True
    End If
    
End Sub

 

[still learning]

Hi Joe
Thanks, I can't seem to get my mind working.
maybe i should go back to bed !!!!!


mike

 

[Joe4]

You are welcome.
Hopefully, it makes sense when you see the code.
Let me know if you have any questions about any aspects of it.

 

[still learning]

It makes sense.

thanks again

mike