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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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" wrote in message
...
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