"Object variable or With block variable not set" but it is, help

[LlebKcir]

Private Sub NetworkComboBox_Change()

Dim FoundCell As Range
Dim ws As Worksheet
Dim i As Integer
Dim rng As String
' Dim FoundMax As Integer  - Now set as global variable

Set ws = ActiveSheet

GroupComboBox.Clear             ' Clear current Group ComboBox

Set FoundCell = ws.Range("A:A").Find(What:=NetworkComboBox.Value) ' Find the cell for the selected network
rng = "B" & FoundCell.Row       ' Build the string for the range of the max value
FoundMax = Range(rng).Value     ' Assign the maximum group number
For i = 1 To FoundMax
    GroupComboBox.AddItem i
Next i

End Sub

The debugger is yellow on the rng variable. well that is clearly set. This code has been working for months now this morning it is having all kinds of issues. The save as function seems to also be having strange issues. Again that code has been working for months and this morning all freaking out.

any clue? Thank you in advance.

 

[jasonb75]

That response could be interpreted as sincere or sarcastic, do I need to add you to my 'ignore' list?

 

[LlebKcir]

no no no, was not sarcastic, my coding skills suck. that was a sincere thank you.

 

[jasonb75]

Cool, thanks for clearing it up. I expect many people have made similar replies without realising how easily it can be misinterpreted.

my coding skills suck

I have about 5% skill, the rest is luck and trying to remember what worked before ?

 

[LlebKcir]

i hear ya. as I know my skills are horrid, i do try to thank those who provide knowledge and help.

 

[jasonb75]

i do try to thank those who provide knowledge and help.

That is a manner that I respect sincerely, there are many who are far less courteous.

Please keep us posted on progress with the suggested change, if it still doesn't work then we can look into it a bit more and see what else we can find.