Uppercase a Table Column

[RamboGT]

I have a worksheet that I use to track projects. I want to Uppercase one column in a Table2 in the sheet by pressing a button.

Here is what I have to start with...not much, but that is why I am here.

Private Sub CommandButton1_Click()
 ActiveSheet.ListObjects("Table2").ListColumns(2).DataBodyRange.Select
    Evaluate ("Upper(Column 2)")
 End Sub

I'm sure the eval is not correct...running out of ideas.

Any help would be great.

Thanks.

 

[JoeMo]

Try this:

Private Sub CommandButton1_Click()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.ListObjects("Table2").ListColumns(2).DataBodyRange
    c.Value = UCase(c.Value)
Next c
Application.ScreenUpdating = True
End Sub

 

[RamboGT]

That works perfect, thanks.

 

[Norie]

This uses Evaluate.

    Sheets("Sheet1").ListObjects("Table1").ListColumns("Column 2").DataBodyRange.Value = Evaluate("INDEX(Upper(Table1[Column 2]),,1)")