Не загружается картинка в Image

[Вадим12091965]

Всем привет. Возникла проблема из неоткуда. Все работало нормально, но с какого-то момента картинка в Image загружается только после сохранения книги с поддержкой макросов. Если книгу не закрывать работает нормально. Закрыл - открыл, опять загрузки нет пока не сохраню. Подскажите в чем проблема. Вот код, который я использую (его подсказали хорошие люди с нашего форума).

Function IsExists(FileName) As Boolean
        Dim oFS: Set oFS = CreateObject("Scripting.FileSystemObject")
        If oFS.FileExists(FileName) Then
                IsExists = True
        Else
                IsExists = False
        End If
        Set oFS = Nothing
        
End Function

Private Sub ComboBox16_Change()
        Dim ImageLDSPPath As String
        ImageLDSPPath = ThisWorkbook.Path & "\ImageLDSP\"
        If ComboBox16.Text = "Áóê Áàâàðèÿ" And IsExists(ImageLDSPPath & "Áóê Áàâàðèÿ D 9200.jpg") Then
                Image3.Picture = LoadPicture(ImageLDSPPath & "Áóê Áàâàðèÿ D 9200.jpg")
        End If
        If ComboBox16.Text = "Âèøíÿ Îêñôîðä" And IsExists(ImageLDSPPath & "Âèøíÿ Îêñôîðä D 088.jpg") Then
                Image3.Picture = LoadPicture(ImageLDSPPath & "Âèøíÿ Îêñôîðä D 088.jpg")
        End If
        If ComboBox16.Text = "Îðåõ Íî÷å Ýêêî" And IsExists(ImageLDSPPath & "Îðåõ Ýêêî D 2251.jpg") Then
                Image3.Picture = LoadPicture(ImageLDSPPath & "Îðåõ Ýêêî D 2251.jpg")
        End If
         If ComboBox16.Text = "Äóá ìîëî÷íûé" And IsExists(ImageLDSPPath & "Äóá ìîëî÷íûé D 9116.jpg") Then
                Image3.Picture = LoadPicture(ImageLDSPPath & "Äóá ìîëî÷íûé D 9116.jpg")
        End If
         If ComboBox16.Text = "Âåíãå ìàãèÿ" And IsExists(ImageLDSPPath & "Âåíãå ìàãèÿ D 2226.jpg") Then
                Image3.Picture = LoadPicture(ImageLDSPPath & "Âåíãå ìàãèÿ D 2226.jpg")
        End If
  
End Sub

[Вадим12091965]

Прошу прощения, разобрался (сохранил 1 раз не книгу, а шаблон)