VB Runtime Error: Unspecified Error

irresistible007

Board Regular
Joined
Nov 24, 2005
Messages
173
Have a Text Box (country_name), a list Box (list_country) and a Add Button (add_country)

Following is the code, giving me the Automation Error + Unspecified error

Code:
Option Explicit

Private Sub add_country_Click()

Dim rngcountries As Range
Set rngcountries = ActiveWorkbook.Sheets("Sheet1").Range("IV20").End(xlToLeft)
rngcountries.Offset(0, 1).Value = country_name.Text
country_name.Text = ""

Dim Cel As Range
    list_country.Clear
               
        For Each Cel In Range("A20:IV20")
            If Cel.Value <> "" Then
                list_country.AddItem Cel.Value
            End If
        Next Cel
End Sub
 

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK

Erdinç E. Karaçam

Board Regular
Joined
Sep 23, 2006
Messages
202
Instead:
Code:
list_country.AddItem Cel.Value

Change:
Code:
list_country AddItem Cel.Value

Do not use "." (Point) and try again.
 

Forum statistics

Threads
1,136,272
Messages
5,674,757
Members
419,525
Latest member
helensesc

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top