Ошибка: невозможно вставить свойство класса изображения

Question

Этот макрос отлично работает, когда он находится на свежей (пустой) рабочей книге, но когда я пытаюсь добавить его в существующую рабочую книгу, он выдает ошибку с заголовком.и я не знаю почему!

Заранее спасибо.

  Sub Insert_Image()
    With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .ButtonName = "Submit"
    .Title = "Select an image file"
    .Filters.Clear
    .Filters.Add "JPG", "*.JPG"
    .Filters.Add "JPEG File Interchange Format", "*.JPEG"
    .Filters.Add "Graphics Interchange Format", "*.GIF"
    .Filters.Add "Portable Network Graphics", "*.PNG"
    .Filters.Add "Tag Image File Format", "*.TIFF"
    .Filters.Add "All Pictures", "*.*"

    If .Show = -1 Then
        Dim img As Object
        Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))
        img.Left = 50
        img.Top = 150
        img.Width = 150
        img.Height = 150
    End If
    End With
  End Sub

Answer 1

Разобрался, лист не может быть защищен.

Снять защиту, возиться с чем угодно, защитить.

Работает как положено.