If you want code that will hide columns A:G when M13 is selected and unhide them when it is de-selected. Code like this in the sheet's code module should work.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("A:G").EntireColumn.Hidden = (Target.Address = "$M$16")
End Sub