Again, replied in the MrExcel board...

--
Regards

Juan Pablo González

"RPIJG " wrote in message
...
I'm having a problem adding an item to a list in a combobox that is
bound to a worksheet.



Code:
--------------------

Private Sub AddName_Click()
Dim SourceData As Range
Dim Found As Object

Set SourceData = Range("customerinfo")
Set Found = Nothing
Set Found = SourceData.Find(NameBox.Value)

If Found Is Nothing Then
SourceData.Resize(SourceData.Rows.Count + 1, 1).Name = "CustomerInfo"
SourceData.Offset(SourceData.Rows.Count, 0).Resize(1, 1).Value =
NameBox.Value
NameBox.RowSource = Range("customerinfo").Address(external:=True)
End If
End Sub

--------------------


The Error I get is..Run-time error 1004, Method 'Range' of '_Global'
Failed


---
Message posted from http://www.ExcelForum.com/