Дело еще было возможно в пробелах

Достаточно часто встречается при копировании кода, например, с Планеты.
Поэтому, если строка вдруг покраснела, первым делом нужно удалить все, что там есть "типа пробел", в начале строки.

Убить на это вечер

Ну ты и загнул. 
Просто создать - минут пять. Выровнять еще  10, и правильно переименовать час.

Примерно так

Код: (vb)

Sub ww()
ActiveSheet.OLEObjects("CheckBox1").Object.Value = Not ActiveSheet.OLEObjects("CheckBox1").Object.Value
End Sub

мне нужно понять принцип и далее я сам

Мне дали такой код

Но не понимаю

И пример "например"
"Он ел ?? палочку с чаем...
И чем человек думает...?"

Мне почему-то кажется, что весь макрос должен выглядеть так

Код: (vb)

Sub ImportReport()
    Workbooks.Open Filename:=Application.GetOpenFilename
    ActiveWorkbook.Worksheets("Планирование").Range("A1:XA1000").Copy ThisWorkbook.Worksheets("Планирование").Range("A1")
    ActiveWorkbook.Close False
End Sub

Благодетель!  :D
Нет, чтобы так написать

Кто заинтересуется задачей вышлю файл с

мешком денег.

Можно, наверно. Только боюсь, что вы дольше пары часов работу этого макроса не выдержите, ибо количество возникших проблем, по сравнению с плюсами, это даже не слон и моська, а амеба и кит.

Есть и другой.
Да, можно, делайте.

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

тут

в том числе и про порядок расположения слов в списке соответствий

унитаз китайский золотой
Не нашли?
унитаз китайский
Не нашли?
унитаз
Что, и этого нет?

Сам спросил, сам отвечаю. 
Разыскал видео, которое все расставило по местам.
В результате получилось через AODB

Код: (vb)

    ctrSQL = "SELECT Таблица1.[Код], Таблица1.[hypl] FROM Таблица1"
    pRSet.Open ctrSQL, pCon, adOpenStatic, adLockOptimistic
        pCon.BeginTrans
    With pRSet
        Do While Not .EOF
            If IsNull(.Fields(1).Value) Then

                sSavePath = ThisWorkbook.Path & "\" & CStr(.Fields(0).Value)

                If Dir(sSavePath, vbDirectory) = "" Then
                    MkDir (sSavePath)
                End If

                DoEvents
                .Fields(1).Value = CStr(.Fields(0).Value) & "#" & sSavePath & "#"
                Debug.Print , .Fields(0), .Fields(1)
            End If
            .MoveNext
        Loop
    End With

Мяу!
Никак не могу разобраться с добавлением гиперссылки.
Нужно после добавления данных в таблицу проставить в поле "hypl" (тип - гиперссылка), гиперссылку на основе поля "код" (счетчик).
Т.е переписать для Access

Код: (vb)

Sub hypl()
Dim cl As Range
    With Range("Таблица1").ListObject
        For Each cl In .ListColumns("hypl").DataBodyRange
         ActiveSheet.Hyperlinks.Add cl, "D:\1tmp\" & CStr(cl.Offset(, -3).Value), TextToDisplay:=CStr(cl.Offset(, -3).Value)
        Next
    End With
End Sub

Дим, это из MyAddin?

[boa]

boa, спасибо, не полез

помогите, пожалуйста, доработать обработку событий:

Пожалуйста

Код: (vb)

Sub Открыть()
    Call MyMacros
    ThisWorkbook.Close False
End Sub

Sub Скачать()
    With Application.FileDialog(msoFileDialogSaveAs)
        If .Show Then
            ThisWorkbook.SaveAs (.SelectedItems(1))
            Call MyMacros
            ThisWorkbook.Close False
        End If
    End With
End Sub

Sub MyMacros()
' 1. код для извлечения PDF из xls* (и сохранания на диск?)
' 2. код для открытия PDF в приложении по умолчании ( или нужном)
End Sub