Toggle code to hide and unhide columns based on text in a row

[newbie4321]

Hi,
I have a spreadsheet with 2 columns for multiple dates - "revenue" and "gross profit". I want to create a toggle button to hide and unhide all columns with "revenue" text in row 4 and then another toggle button to hide and unhide all columns with "gross profit" in row 4. I can't quite crack the code on this to link it back to the text in row 4. Is someone able to assist please?

 

[Cubist]

Try:

Sub ToggleRevenueColumns()
    Dim ws As Worksheet
    Dim lastCol As Long
    Dim col As Long
    Dim cell As Range
   
    Set ws = ActiveSheet
    lastCol = ws.Cells(4, ws.Columns.Count).End(xlToLeft).Column
    Application.ScreenUpdating = False
   
    For col = 1 To lastCol
        If ws.Cells(4, col).Value = "Revenue" Then
            ws.Columns(col).Hidden = Not ws.Columns(col).Hidden
        End If
    Next col
   
    Application.ScreenUpdating = True
End Sub

Sub ToggleGrossProfitColumns()
    Dim ws As Worksheet
    Dim lastCol As Long
    Dim col As Long
    Dim cell As Range
   
    Set ws = ActiveSheet
    lastCol = ws.Cells(4, ws.Columns.Count).End(xlToLeft).Column
    Application.ScreenUpdating = False
   
    For col = 1 To lastCol
        If ws.Cells(4, col).Value = "Gross" Then
            ws.Columns(col).Hidden = Not ws.Columns(col).Hidden
        End If
    Next col
   
    Application.ScreenUpdating = True
End Sub