Help making column A starting on row 2 all caps

[Newtonus_Prime]

I am needing to make column A starting on row 2 all caps on tab "Crystal Anderson" I really need the VBA to work on multiple tabs, but can probably figure it out if I can get a functional script on one. This excel sheet will be used as a shared file on Teams, so I'm not sure if that makes a difference.

Thank you in advance,
Adam

[6StringJazzer]

Put this code into the VBA module for the worksheet. It will update any data entered or updated to be all caps after the user hits ENTER. You weren't specific about how you wanted this to work but I thought that would be preferable to clicking a button to do the whole column at once.

Private Sub Worksheet_Change(ByVal Target As Range)

   Dim Cell As Range
   
   Application.EnableEvents = False
   
   For Each Cell In Target
   
      If Cell.Column = 1 And Cell.Row >= 2 Then
         Cell.Value = UCase(Cell.Value)
      End If
   
   Next Cell
   
   Application.EnableEvents = True

End Sub

[Newtonus_Prime]

I have a dumb question, but is there a way to use Macros to accomplish this? I don't think I can open a VBA module on excel 365.

[6StringJazzer]

I don't think I can open a VBA module on excel 365.

Are you using the desktop install of Microsoft 365? Press ALT+F11 to open the VBA development window.

If you are on the web browser version, then you cannot use VBA. You can use Office Script if your version supports it.

[Marc L]

Macros disapear since last century but Microsoft had such not the good idea to keep the same term for a VBA procedure so Macros = VBA ‼

So since more than 25 years any Windows Excel version has VBA modules …

[Newtonus_Prime]

Attachment 855456

I am getting a ton of errors. Am I doing this right?

Thank you,
Adam

[6StringJazzer]

Attachment 855456

I am getting a ton of errors. Am I doing this right?

Hopefully sintek's post cleared it up. But your attachment did not work. Were you trying to attach an image?

To attach an image, first click Go Advanced under your edit box. Then click in the text to set the cursor to where you want the image to appear, then press the image icon and attach your image.

[Sintek]

Place this code in ThisWorkbook Module
Whenever you type in Column A of the Main Table's databodyrange of the listed sheets, it will capatalize entry

Option Explicit
Dim wsArr
Private Sub Workbook_SheetChange(ByVal ws As Object, ByVal Target As Range)
wsArr = Array("Crystal Anderson", "Micah Sloan", "Kari Ohler") '! Here you can list the sheets that need to be included...
Set ws = ActiveSheet
If Target.CountLarge > 1 Then Exit Sub
If Not IsError(Application.Match(ws.Name, wsArr, 0)) Then
     If Not Intersect(Target, ws.ListObjects(2).ListColumns(1).DataBodyRange) Is Nothing Then
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
    End If
End If
End Sub