Ошибка 13 Несоответствие типов при назначении переменной листа в VBA

Question

Dim AN As Workbook
Set AN = Sheets("ANData")

Хорошо, вторая строка - это строка, которая выделяется, когда я пытаюсь запустить графический интерфейс. Это сработало на прошлой неделе, но теперь я получаю ошибку 13 несоответствие типов. Я пытаюсь, чтобы он ссылался на электронную таблицу с именем "ANData".

Answer 1

Как уже упоминалось в комментариях Sheet является переменной, а WorkBook - другой переменной:

Public Sub TestMe()

    Dim ws As Worksheet
    Dim wb As Workbook

    Set wb = ThisWorkbook
    Set ws = wb.Sheets("ANData")

    MsgBox ws.Name & " is in " & wb.Name

End Sub