VBA - UserForm1.Show

[george hart]

Hi

When I run this I get the de-bug. Not sure why though. I use this in other macros and it appears to work fine????? ?Any ideas

In short I need a button that when clicked opens UserForm1

Sub Button35_Click()
UserForm1.Show
End Sub

 

[Misca]

Check the name of your userform: Your code should work if your userform is named UserForm1.

Most likely it's needless to say but make sure you have your macros enabled + you are really clicking "Button35" when trying to fire the macro.

 

[RoryA]

There is probably an error in the Initialize event (or Activate event) code in your userform. Press f8 to step into the form code, then keep pressing f8 until you reach the actual error line.

 

[george hart]

Ah, after hitting F8, it falls over here - in bold...

Dim ListItems As Variant, i As Integer
'Dim SourceWB As Workbook
With Me.ComboBox1
.Clear
' open the source workbook as ReadOnly
Set SourceWB = Worksheets("Tracker").Range("C3:C3000").Value
ListItems = SourceWB

ListItems = Application.WorksheetFunction.Transpose(ListItems)
' convert values to a vertical array
For i = 1 To UBound(ListItems)
.AddItem ListItems(i) ' populate the listbox
Next i
ComboBox1.ListIndex = 1 ' no items selected, set to 0 to select the first item
End With

End Sub

 

[Ruddles]

Can you explain what that line of code is trying to do?

 

[RoryA]

Remove the 'Set' from the start of that line. (Of course, your variable name makes no sense as it's not a Workbook, but never mind )

 

[george hart]

Many thanks....

Resolved. I removed "Set", and it all works fine now...

Thanks again