unknown type mismatch

I have a userform where
Problems =name of Listbox on the same form as the Checkbox(SFCC_Bite)

Private Sub SFCC_Bite_Click()
If SFCC_Bite.Enabled = True Then
With Problems
.AddItem Worksheets("Sheet1").Range("A3:A20").Value
End With
Problems.Enabled = True
End If
End Sub

as the range on Sheet1 is a list of names
why does this line give a type mismatch error
.AddItem Worksheets("Sheet1").Range("A3:A20").Value
Forgive me I'm reasonably new to VBA.
Thanks in advance

You are trying to add more than one item. If you want to do that, use

With Problems
.List Worksheets("Sheet1").Range("A3:A20").Value
End With

--
Regards,
Tom Ogilvy


"Aonghus" <[email protected]> wrote in message
news:[email protected]...
> I have a userform where
> Problems =name of Listbox on the same form as the Checkbox(SFCC_Bite)
>
> Private Sub SFCC_Bite_Click()
> If SFCC_Bite.Enabled = True Then
> With Problems
> .AddItem Worksheets("Sheet1").Range("A3:A20").Value
> End With
> Problems.Enabled = True
> End If
> End Sub
>
> as the range on Sheet1 is a list of names
> why does this line give a type mismatch error
> .AddItem Worksheets("Sheet1").Range("A3:A20").Value
> Forgive me I'm reasonably new to VBA.
> Thanks in advance
>

Thanks Tom

But now it gives me an Invalid use of property


"Tom Ogilvy" wrote:

> You are trying to add more than one item. If you want to do that, use
>
> With Problems
> .List Worksheets("Sheet1").Range("A3:A20").Value
> End With
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Aonghus" <[email protected]> wrote in message
> news:[email protected]...
> > I have a userform where
> > Problems =name of Listbox on the same form as the Checkbox(SFCC_Bite)
> >
> > Private Sub SFCC_Bite_Click()
> > If SFCC_Bite.Enabled = True Then
> > With Problems
> > .AddItem Worksheets("Sheet1").Range("A3:A20").Value
> > End With
> > Problems.Enabled = True
> > End If
> > End Sub
> >
> > as the range on Sheet1 is a list of names
> > why does this line give a type mismatch error
> > .AddItem Worksheets("Sheet1").Range("A3:A20").Value
> > Forgive me I'm reasonably new to VBA.
> > Thanks in advance
> >
>
>
>

Sorry, left out the Equal sign:

With Problems
.List = Worksheets("Sheet1").Range("A3:A20").Value
End With

--
Regards,
Tom Ogilvy

"Aonghus" <[email protected]> wrote in message
news:[email protected]...
> Thanks Tom
>
> But now it gives me an Invalid use of property
>
>
> "Tom Ogilvy" wrote:
>
> > You are trying to add more than one item. If you want to do that, use
> >
> > With Problems
> > .List Worksheets("Sheet1").Range("A3:A20").Value
> > End With
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "Aonghus" <[email protected]> wrote in message
> > news:[email protected]...
> > > I have a userform where
> > > Problems =name of Listbox on the same form as the Checkbox(SFCC_Bite)
> > >
> > > Private Sub SFCC_Bite_Click()
> > > If SFCC_Bite.Enabled = True Then
> > > With Problems
> > > .AddItem Worksheets("Sheet1").Range("A3:A20").Value
> > > End With
> > > Problems.Enabled = True
> > > End If
> > > End Sub
> > >
> > > as the range on Sheet1 is a list of names
> > > why does this line give a type mismatch error
> > > .AddItem Worksheets("Sheet1").Range("A3:A20").Value
> > > Forgive me I'm reasonably new to VBA.
> > > Thanks in advance
> > >
> >
> >
> >