Turning Colums on and off to comare

Can't get your link to work.  However if you want to be able to select a few cells using Ctrl and make only their rows or columns visible and hide all of the other data you could use something like this (See attached .xlsm file for reference) Please note I have attached the example for columns and rows:

Sub CompareCol()

    Dim LastCol As Long
    Dim Rng As Range
    Dim cll As Range
    
    LastCol = Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Column
    
    Set Rng = Selection
    
    Range(Columns(3), Columns(LastCol)).EntireColumn.Hidden = True
    
    For Each cll In Rng
        cll.EntireColumn.Hidden = False
    Next

End Sub

Sub ReverseCompareCol()

Dim LastCol As Long

    LastCol = Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Column
                            
    Range(Columns(3), Columns(LastCol)).EntireColumn.Hidden = False

End Sub

Sub Compare()

    Dim LastRow As Long
    Dim Rng As Range
    Dim cll As Range
    
    LastRow = Cells.Find(What:="*", _
                            After:=Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
                            
    Set Rng = Selection
    
    Rows("2:" & LastRow).EntireRow.Hidden = True
    
    For Each cll In Rng
        cll.EntireRow.Hidden = False
    Next

End Sub

Sub ReverseCompare()

    Dim LastRow As Long

    LastRow = Cells.Find(What:="*", _
                            After:=Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
                            
    Rows("2:" & LastRow).EntireRow.Hidden = False

End Sub