ListBox - TextBox - Range on Sheet

[SarahWard]

Hey everybody

I currently have a macro set up to allow the user to add data to a list. When data is added to a list, the system does a search on the worksheet range and finds the related data from the same row, and puts in a textbox for easy viewing.

I now want to take each item from the ListBox, find the related info from the TextBox or sheet or where-ever, and put it in a new sheet in a specified range.

I've started with the following code:
c = -1
LabelsForm.Hide
Workbooks.Open ("C:\Documents and Settings\Sarah\My Documents\Labels.xls")

For i = 1 To 16
LabelsForm.ListBox.ListIndex = c + i
Windows("Labels.xls").Activate
Range("A" & i).Activate
ActiveCell.Value = LabelsForm.TextBox.Value
Next

Everytime the ListIndex changes, another Sub is called up as follows
indPl = LabelsForm.ListBox.Text
Range("A1").Select
Cells.Find(What:=indPl, After:=ActiveCell).Activate
LabelsForm.TextBox.Value = ActiveCell.Value & vbCrLf & ActiveCell.Offset(0, 1).Value & vbCrLf & ActiveCell.Offset(0, 2).Value & vbCrLf & ActiveCell.Offset(0, 3).Value & vbCrLf & ActiveCell.Offset(0, 4).Value

Everytime I run my macro, I come back with Runtime Error 91 Object variable not set, and it highlights the Cells.Find line in the second sub mentioned above. I never have any problems with this line, if I'm not using the first Sub.

Can anyone help????????????????????????
Regards Sarah

[SarahWard]

I found my own answer.

When the second part got pulled in, the wrong workbook was activated, so all I had to do was activate the other workbook

Cheers, Sarah.