hide column on double clicking certain cell

Try this

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$S$25" Then Exit Sub
Columns(35).EntireColumn.Hidden = Not Columns(35).Hidden
End Sub