Compile Error:

[gheyman]

Compile Error:
Can't find Project or Library

Sub Userform_Button()
Dim Msg As String
Dim i As Integer
Dim NextRow As Long

Worksheets("Tables").Select

Range("L1").Select
' Determine the next empty row
NextRow = Application.WorksheetFunction. _
CountA(Range("L:L")) + 1
' Transfer the selected items from ListBox
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
c = c + 1
Cells(LastRow + c, 12) = ListBox1.List(i, 0)
End If
Next i

End Sub

It is selecting teh second "c" inthe second row above End If. I dont know what the problem is? Thanks!

 

[VoG]

Check this http://www.cpearson.com/excel/MissingReferences.aspx

And please use code tags

[code]
your code here
[/code]

 

[gheyman]

where do i learn how to use tags?

 

[VoG]

where do i learn how to use tags?

just as I showed you

Sub Userform_Button()
 Dim Msg As String
    Dim i As Integer
    Dim NextRow As Long

    Worksheets("Tables").Select
    
    Range("L1").Select
'   Determine the next empty row
    NextRow = Application.WorksheetFunction. _
       CountA(Range("L:L")) + 1
'   Transfer the selected items from ListBox
    For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
c = c + 1
Cells(LastRow + c, 12) = ListBox1.List(i, 0)
End If
Next i

End Sub