Find Method ; search area

  • Thread starter Thread starter CG Rosén
  • Start date Start date
C

CG Rosén

Hi Group,

Have below code. ActiveSheet is WorkSheets(1). Is this the correct syntax
for the "search area"? Seems not to work.

Thanks for any hints.

Brgds

CG Rosén

Dim d
With Worksheets(4).Range("B1:B100") '????????
Set d = .Find(ComboBox1.Text, LookIn:=xlValues)
If d Is Nothing Then
MsgBox "OK"
Else
MsgBox "NIL"
End If
End With
 
Hi

Try this

With Worksheets(1).Range("B1:B100")
Set d = .Find(combobox1.text, LookIn:=xlValues)
If Not d Is Nothing Then
firstaddress = d.Address
MsgBox "OK"
Else
MsgBox "NIL"
End If
End With


You don't need to dim d as you are setting it.
-----Original Message-----

Hi Group,

Have below code. ActiveSheet is WorkSheets(1). Is this the correct syntax
for the "search area"? Seems not to work.

Thanks for any hints.

Brgds

CG Rosén

Dim d
With Worksheets(4).Range
Click to expand...
("B1:B100") '????????
 
Back
Top