I generate a sheet that add a lot of buttons see code below.
Code of user form:
Private Sub UserForm_Initialize() With Application .WindowState =