UserForm

[Matt5353]

I have a user form with twelve command buttons on 8, 12, 14, 16 etc up to 30.
Now I have 12 workbooks I wish to attach to each Command Button.
Try as I might I cannot attach the workbook to the command button.
If I can get one to connect when pressed then I can just copy the code for all the others
Andrew

 

[Logit]

.
If you mean open another worbook :

Option Explicit


Sub openWB()
Dim wkbk As Workbook
On Error Resume Next
On Error GoTo 0


    If wkbk Is Nothing Then
        Set wkbk = Workbooks.Open(Environ("UserProfile") & "\Desktop\Spiral 3.xlsm")
    End If


wkbk.Activate
End Sub

 

[Mentor82]

I have a user form with twelve command buttons on 8, 12, 14, 16 etc up to 30.
Now I have 12 workbooks I wish to attach to each Command Button.
Try as I might I cannot attach the workbook to the command button.
If I can get one to connect when pressed then I can just copy the code for all the others
Andrew

Hi,
Use the code for the each command buttoch changing only the value of the parameter FileName writing full directory of the workbook you want to open.

Workbooks.open FileName:="C:\data\MyWorkbook.xlsx"
[\CODE]