myFind Range not working

[Darren Smith]

Please can someone say why this myFindRng goes red in the code?

Private Sub Model_Chose_Change()

With ThisWorkbook.Worksheets("Job Card Master")

Me.Quote_Details.ListIndex = Me.Model_Chose.ListIndex
myValToFind = Make_Chose.Value
Set mySearchRng = .Columns("A")
End With

Set myFindRng = mySearchRng.Find(What:=myValToFind, _
           LookIn:=xlFormulas, _
           LookAt:=xlWhole, _
           SearchOrder:=xlByRows, _
           SearchDirection:=xlNext, _
           MatchCase:=False)

 

[Norie]

The problem is more likely to be with myFindRng and is probably because in the preceding code Find failed to find what you were searching for.

 

[Darren Smith]

Sorry about this how can I make this work.
The issue is the myFindRng.
The value in the Combo box and Listbox are the same.
There are quite a number of lines with the same value in Column B in the source worksheet just needs to grab the whole lot.
With the value in column B in the Source worksheet
Then display the lot in the Listbox.

 

[Norie]

How are you populating the combobox?

 

[Darren Smith]

How are you populating the combobox?

like this

With Me.Model_Chose
Me.Model_Chose.Clear

.AddItem "Transit"
.AddItem "Movano"
.AddItem "Master"
.AddItem "NV400"
.AddItem "Boxer"
.AddItem "Relay"
.AddItem "Ducato"
.AddItem "Sprinter"
.AddItem "Grafter"

End With


End Sub

 

[Darren Smith]

Please can someone help

 

[Darren Smith]

Morning All

Please can somebody help today

 

[Darren Smith]

Please can someone help

 

[RoryA]

I suggest you repost your full routine that is causing the problem.

 

[Darren Smith]

How can I because other times I`ve done that I got told I can`t repost the same post?

 

[RoryA]

I just mean post your code in this thread, not start a new question. The code in your original question didn't include the last part you said had a problem.