A check box to open and close Columns

S

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
 
O

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
 
S

Steved

Hello OssieMac from Steved

Than kyou.

OssieMac said:
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top