Good Day,

Code below works OK. The problem is that the Range has to be optional
from DG5 DH5 DI5 DJ5 etc. Following seems not to work;
Set MyRange = Range("DG5")
With Sheets("tele").MyRange.CurrentRegion.Columns(1)

Thanks for any hints.

Brgds

CG Rosén
----------------------------------------------------------------------
Dim c
With Sheets("tele").Range("DG5").CurrentRegion.Columns( 1)

Set c = .Find(ComboBox1.Text, LookIn:=xlValues)
If c Is Nothing Then
.Cells(.Rows.Count + 1).Value = ComboBox1.Text
.Cells(.Rows.Count + 1).Offset(0, 1).Value = TextBox3.Text
Else
c.Offset(0, 1).Value = c.Offset(0, 1).Value + TextBox3.Text
End If

End With