Macro to unhide columns, call a macro, then revert columns to previous state.

Form or ActiveX checkboxes?

Sorry, missed that!

Okay, here you go:

Sub foo()
Dim i As Integer, vCBState() As Variant

With Sheet1
    ReDim vCBState(1 To .CheckBoxes.Count)
    
    'Save Checkbox Values
    For i = 1 To .CheckBoxes.Count
        vCBState(i) = .CheckBoxes(i).Value
    Next i
    
    'Tick all Checkboxes
    For i = 1 To .CheckBoxes.Count
        .CheckBoxes(i).Value = 1
    Next i
    
    'DO STUFF
    MsgBox "Ready to do your other code here", vbInformation + vbOKOnly, "XLSM"
    
    'Restore Checkbox Values
    For i = 1 To .CheckBoxes.Count
        .CheckBoxes(i).Value = vCBState(i)
    Next i
    
End With
End Sub

Should all make sense...

Right - so the checkboxes are actually irrelevant, you want to store hidden state of columns in Sheet2, unhide them all, do stuff, then restore hidden state, is that right?

Originally Posted by kjg

Yea, sounds about right, have another read of my first post, it may through some light.

Cheers,
Keith

I read it, several times. The requirement is still ambiguous... You ask for checkboxes states to be stored and changed, when actually they are irrelevant to what you really want to do?

Let me know if second attempt does what you thought you asked for.....

If that is what you want, then use thisL

Sub bar()
Dim i As Integer, j As Integer, vColState() As Variant

With Sheet2
    j = .UsedRange.Columns.Count
    ReDim vColState(1 To j)
    
    'Save Column hidden state, and unhide
    For i = 1 To j
        vColState(i) = .Columns(i).Hidden
        .Columns(i).Hidden = False
    Next i
    
    'DO STUFF
    MsgBox "All columns unhidden, ready to do your other code here", vbInformation + vbOKOnly, "XLSM"
    
    'Restore Column hidden state
    For i = 1 To j
        .Columns(i).Hidden = vColState(i)
    Next i
    
End With
End Sub

No worries - glad we got it working the way you actually wanted

Thanks for the feedback.