Automating hiding and collapse of row height......possible?

Hi (this is my second post)

I have a situation with a worksheet which has 8 columns:

Columns 1-3 are row height 15 (just one line of text) - or would be, except they automatically go to row height of 80, because columns 4-8 have much more text and so it is expanded to height of 80.

I want to switch between (1) seeing everything at row height 80 (or what it automatically goes to) and (2) hiding columns 4-8 and everything being at row height 15. So I want a button with a macro behind it to do that.

Is this possible?

Many thanks in advance.

This code assigned to a button does the task.

Private Sub cmdViewOptions_Click()
'toggle views between
'  (1) set all data row heights to 15 and hide columns 4-8
'  (2) unhide columns 4-8 and automatically set row height for all rows
Dim lastRowNumber As Long

    lastRowNumber = Range("A1").End(xlDown).Row

    Application.ScreenUpdating = False
    If Columns(4).Hidden Then
        Columns("D:H").Hidden = False
        Rows("2:" & lastRowNumber).Select
        Selection.EntireRow.AutoFit
    Else
        Columns("D:H").Hidden = True
        Rows("2:" & lastRowNumber).Select
        Selection.RowHeight = 15
    End If
    
    Range("A1").Select
    Application.ScreenUpdating = True
    
End Sub

Many thanks