Reference column names instead of numbers

[Mindlesh]

How can I adapt these macros to reference the corresponding column names in Table4?

Private Sub ToggleButton1_Click()
    [COLOR=#ff0000]' Reference a column named "Time"[/COLOR]
    ActiveSheet.Columns(3).Hidden = Not (ToggleButton1.Value)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=#ff0000]' Reference a column named "ET"[/COLOR]
If Target.Cells.Count = 1 And Target.Column = 4 Then
    ActiveSheet.Sort.SortFields.Clear
    [COLOR=#ff0000]' Reference the second cell in a column named "NT"[/COLOR]
    ActiveSheet.Sort.SortFields.Add Key:=Range("B2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveSheet.Sort.SortFields.Add Key:=Range("A2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    [COLOR=#ff0000]' Reference Table4[/COLOR]
    With ActiveSheet.Sort
        .SetRange Range("A:M")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End If
End Sub

 

[Mindlesh]

Thank you. Does it matter that it is "Cells(1)" rather than "Cells(2)"?

 

[MARK858]

It is Cells(1) because DataBodyRange refers to the Data excluding the header, amend it if necessary.

On another point, the code (because you are using Columns.Count) will trigger if a cell outside the table, in the same column is changed.

If you want it restricted to the table then try...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tb As ListObject
    Set tb = ActiveSheet.ListObjects("Table4")
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, tb.ListColumns("NT").DataBodyRange) Is Nothing Then
            tb.Sort.SortFields.Clear
            tb.Sort.SortFields.Add Key:=tb.ListColumns("NT").DataBodyRange.Cells(1) _
                                        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            tb.Sort.SortFields.Add Key:=tb.ListColumns("Se").DataBodyRange.Cells(1) _
                                        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With tb.Sort
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End If
    End If
End Sub

 

[Mindlesh]

So many considerations! Thank you; and the sorting macro is noticably faster than what I had originally, for some reason.

 

[MARK858]

So many considerations! Thank you.

You're welcome