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

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" wrote:

> 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
>

Hello OssieMac from Steved

Than kyou.

"OssieMac" wrote:

> 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" wrote:
>
> > 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
> >