I'm definitely using a Toggle Button. The line that you changed 

Worksheets("Day " & i).Visible = ToggleButton1
brings up a Run-time error '1004' message. 'Application-defined or object-defined error'.

Would it be better if I send you a file?

Thanks

btw, the caption changing is excellent.