Excel 2003 + help please with button

N

Neil Holden

Hi all, can anyone tell me why i'm getting a Compile Error: Syntax Error on
the line:

For lng = 0 me.ListBox1.listcount - 1?

Thanks.

Sub Button2_Click()

Dim lng As Long
Dim col As Collection
Dim wb2 As Workbook
Dim ws As Worksheet

Set col = New Collection
For lng = 0 Me.Neil.ListCount - 1
If Me.ListBox1.Selected(lng) Then
col.Add Me.ListBox1.List(lng)
End If
Next lng

If col.Count = 0 Then
MsgBox "No Selections"
Else
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb1 = ActiveWorkbook
Set wb2 = Workbooks.Open("\\sguk-app1\Business Objects\CHR\Export of
SGUK.xls ")
Set ws = wb2.Sheets("Sheet1")

For Each wks In col
wks.Range("A8:T27").Copy ws.Cells(Rows.Count,
"A").End(xlUp).Offset(1, 0)
Next wks
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If


End Sub
 
F

Fred Smith

Your For statement has no "To". Try:
For lng = 0 To Me.Neil.ListCount - 1

Regards,
Fred
 
F

Fred Smith

It worked for me when I put it into the VBA Editor. Did you copy and paste
it?

Regards,
Fred
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top