Форма не работает в чем может быть ошибка?

[skif93]

При вызове формы выдает вот такую ошибку на любые действия.
Подскажите пожалуйста, что может быть.

[VictorM]

По Вашему скриншоту совершенно непонятно, что за форма, как она должна работать и т.д.
Выложите код формы с кратким описанием, тогда возможно что-то прояснится.

[skif93]

По Вашему скриншоту совершенно непонятно, что за форма, как она должна работать и т.д.
Выложите код формы с кратким описанием, тогда возможно что-то прояснится.

Private Sub UserForm_Initialize()
Dim nPos As Integer, sTemp As String
nPos = InStr(1, spFio, " ")
If nPos <> 0 Then
sTemp = Mid(spFio, 1, nPos - 1)
Else
sTemp = spFio
End If
nAddr = -1
'On Error Resume Next
'sOld.Activate
Me.lstFIO.ControlSource = "_Списки!Z1"
Me.Label1.Caption = spFio
sNameSh = ActiveSheet.Name
Select Case nNum
Case 17, 4
sDiapazon = "A2:A65536"
nRowI = Sheets("_Списки").Cells(Rows.Count, "A").End(xlUp).Row
sSpisok = "A2:A" & nRowI
Me.Caption = "Агенты"
Case 5
sDiapazon = "I2:I65536"
nRowI = Sheets("_Списки").Cells(Rows.Count, "I").End(xlUp).Row
sSpisok = "I2:I" & nRowI
Me.Caption = "Страховая"
Case 2
sDiapazon = "G2:G65536"
nRowI = Sheets("_Списки").Cells(Rows.Count, "G").End(xlUp).Row
sSpisok = "G2:G" & nRowI
Me.Caption = "Салоны"
End Select
Me.lstFIO.RowSource = "_Списки!" & sSpisok
With Worksheets("_Списки").Range(sDiapazon)
Set C = .Find(sTemp, LookIn:=xlValues, lookAt:=xlPart)
If Not C Is Nothing Then
nAddr = C.Row
End If
End With
'sGreen.Activate
'On Error GoTo 0
If nAddr <> -1 Then
Me.lstFIO.ListIndex = nAddr - 2
Else
Me.lstFIO.ListIndex = 0
Me.txtAdd.Text = spFio
End If
Me.lstFIO.SetFocus
End Sub

[VictorM]

К сожалению я неправильно выразился, говоря о коде.
Имелся в виду Ваш файлик с этой формой.
Поймите, сложно смоделировать и понять задачу не зная что, куда и зачем.
Да еще и кучей данных.
Если Ваши данные конфиденциальны, замените на что-либо и выложите файл, вот тогда и покумекаем))

[skif93]

Спасибо вопрос снят.
ошибка здесь:
Me.lstFIO.ControlSource = "_Списки!Z1"
Так как Z1 находилась на защищенном листе.
кто поставил защиту ума не приложу.
ПРосто интересно почему "Ошибка" и все ни номера ни пояснений.

[VictorM]

тоже было интересно
скорее всего именно потому, что данные защищены.
Когда такое присутствует, Excel особо не распространяется об ошибках