A check box to open and close Columns

[Steved]

Hello from Steved

Below I can put in a tick in the CheckBox and it will open the hidden
columns take the tick out and it will close. It is fine on my Computer. My
issue is when I email to a client it will not operate. What do I need to do
please to allow this function. I thankyou.

Private Sub CheckBox1_Click()
Dim r As Range
Set r = Range("K1:L1,N1:O1,Q1:R1,T1:U1,W1:X1,Z1:AA1,AC1:AD1,AF1:AG1")
r.EntireColumn.Hidden = Not r.EntireColumn.Hidden
End Sub

 

[OssieMac]

The other person may have macros disabled. To enable macros:-

xl2007: Click on large Microsoft Office button top left of screen. Select
Excel Options towards bottom right of screen-> Trust Center-> Trust Center
Settings-> Macro Settings and set option to Disable with notification. The
user will get a dialogue warning box in which they have to select allow the
macro to run.

Earlier versions of xl: Select Tools-> Macro-> Security -> Security Level
tab and set to medium. User will get a warning dialogue box as above.

Regards,

OssieMac

 

[Steved]

Hello OssieMac from Steved

Than kyou.

The other person may have macros disabled. To enable macros:-

xl2007: Click on large Microsoft Office button top left of screen. Select
Excel Options towards bottom right of screen-> Trust Center-> Trust Center
Settings-> Macro Settings and set option to Disable with notification. The
user will get a dialogue warning box in which they have to select allow the
macro to run.

Earlier versions of xl: Select Tools-> Macro-> Security -> Security Level
tab and set to medium. User will get a warning dialogue box as above.

Regards,

OssieMac