hide column on double clicking certain cell

Hi Experts,
I want to hide and unhide column AI by double clicking on a certain cell, let's say S25. Can this be done?
Greetings, Bengtar

bta, yes you can use the Before DoubleClick event on the sheet in question.

In native XL right click on the tab you wish the code to fire against, select View Code and insert the below into the resulting window:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$S$25" Then: Columns(35).Hidden = (Columns(35).Hidden = False): Cancel = True
End Sub

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

Another slight differentr version

'These instructions pre typed & are worded to cater for the novice programmer
'To install macro to correct location

'Copy this macro
'GoTo Excel
'Select sheet this is to appy to
'Right Click on Sheet Name Tab > select View Code
'Past macro into the Worksheet Module displayed

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Application.Intersect(Target, Range("s25")) Is Nothing Then
      Columns(35).EntireColumn.Hidden = Not Columns(35).EntireColumn.Hidden
   End If
End Sub

Note, as per my example, if the double click action on S25 is purely to toggle column visibility be sure to use Cancel = True on the event itself
(else you will be in Edit Mode on the Target).

DonkeyOte

thanks for pointing that out I forgot about that little trap

There is no single click event, you could use the BeforeRightClck event