Range in FindMethod?

[CG Rosén]

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

 

[Tom Ogilvy]

It would only work if Tele is the activesheet when you do Set MyRange =
Range("DG5")

sStr = "DG5"

with worksheets("Tele").Range(sStr).CurrentRegion.Columns(1)

It is unclear how the appropriate cell will be specified.