Capitalize cells in 3 different columns

[akalien]

Hello everyone,


I have absolutely no knowledge of VBA and I’m looking for a code to capitalize, after input, all the cells, except column headers in row 1, of the following 3 columns: "G", "J" and "M".


Many thanks for your suggestions

 

[Herakles]

Hello everyone,


I have absolutely no knowledge of VBA and I’m looking for a code to capitalize, after input, all the cells, except column headers in row 1, of the following 3 columns: "G", "J" and "M".


Many thanks for your suggestions

Put this code in the worksheet code module.

Right click on the worksheet tab and select view code.

Private Sub Worksheet_Change(ByVal Target As Range)

    If (Not Intersect(Target, Range("G:G,J:J,M:M")) Is Nothing) And Target.Row <> 1 Then
    
        Application.EnableEvents = False
        Target.Value = UCase(Target.Value)
        Application.EnableEvents = True
    
    End If

End Sub