click - hide/unhide column

Thank you mrice, working like charm. Now i need to add a slight modification to the formula, how can i modify it to get this result: every second row will be hiding when clicking on the row top of it. ( there will be hidden picture in hide/unhide rows - 2,4,6,8,10... by clicking on 1,3,5,7,9...

Try this variation.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Columns.Count = 1 And WorksheetFunction.IsOdd(Target.Column) = True Then
    

    If Columns(Target.Column + 1).Hidden = True Then
        Columns(Target.Column + 1).Hidden = False
        For N = 1 To ActiveSheet.DrawingObjects.Count
            If ActiveSheet.DrawingObjects(N).TopLeftCell.Column = Target.Column + 1 Then
                ActiveSheet.DrawingObjects(N).Visible = True
            End If
        Next N
    Else
        Columns(Target.Column + 1).Hidden = True
        For N = 1 To ActiveSheet.DrawingObjects.Count
            If ActiveSheet.DrawingObjects(N).TopLeftCell.Column = Target.Column + 1 Then
                ActiveSheet.DrawingObjects(N).Visible = False
            End If
        Next N
    End If
End If
End Sub