Кто нибудь,объясните,почему один и тот же код в одной книге работает,а в другой кричит что нет такого объекта Run-time Error 424, хотя все папки и файлы на месте,и во время выполнения кода переменные принимают нужные значения.Второй день бьюсь,крыша скоро поедет
Private Sub ComboBoxShifr_Change()
'как получается р не стал показывать,но там все правильно
проф1 = Sheets("каталог").Cells(p, 6)
проф = "C:\профиля\" & проф1
With UserFormGlavn
On Error GoTo Errors1
With Image1
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeZoom
.Picture = LoadPicture(проф)
GoTo Ends:
Errors1:
.Picture = LoadPicture("C:\профиля\проф.jpg")
Resume Next
Ends:
End With
End With
End Sub