VBA for HIDE/UNHIDE Colum when press double click

Hello Team

We want a VBA or Macro for my worksheet.. where we double click in J1 Cell (Cell Text Show Detail) then HIDE colum D to Colum I

& Cell Text Value Show Details change to Hide Details


& When again we double click on Cell Value J1 then unhide Colum D to Colum I & Cell Text Value Hide Details change to Show Details

Thanks in Advance

Santosh

Hi
Cut and paste this code behind the worksheet in question. Right click on the tab name and select "View Code", then paste the code and close the view.
Then double click on J1 to hide or unhide columns D to I:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$J$1" Then
    Columns(4).Hidden = (Columns(4).Hidden = False): Cancel = True
    Columns(5).Hidden = (Columns(5).Hidden = False): Cancel = True
    Columns(6).Hidden = (Columns(6).Hidden = False): Cancel = True
    Columns(7).Hidden = (Columns(7).Hidden = False): Cancel = True
    Columns(8).Hidden = (Columns(8).Hidden = False): Cancel = True
    Columns(9).Hidden = (Columns(9).Hidden = False): Cancel = True
End If
End Sub

Good luck.
Tony

Hi Tony ur code working fine as per my requirement but we also want to change Cell Value JI ... Show Details to Hide Details & Hide Details to Show Details so that we can easily tell any one that now u unhide & now u hide..

Thanks