With Worksheets(m_s1).Range("My_Range2")
Dim iRange As Range
Dim row As Integer
Dim col As Integer
Set c = .Find(ComboBox1.Value, LookIn:=xlValues) ' search name of month

If Not c Is Nothing Then
firstAddress = c.Address ' received $K$29
MsgBox "18.firstAddress = " & firstAddress ' received $K$29
Do
If Range(firstAddress).Offset(0, 1).Value = ComboBox2.Value Then

выход из процедуры Exit Sub ' , а

КАК ВЫЙТИ из группы End With ?
Set c = .FindNext(c)
End If
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

СПАСИБО.