Как мне передать диапазон в моей UDF для расчета размера диапазона?

Question

Может ли кто-нибудь сделать мне одолжение исправить код моей пользовательской функции? Я просто пытаюсь измерить размеры диапазона, указанного пользователем. У меня проблемы с прохождением диапазона.

Function PageSize(MyArea As Range) As String

Dim r As Range
    Application.Volatile

    Set r = Range("MyArea") ' did not work without quotes

    Debug.Print r.Width
    Debug.Print r.Height

        PageSize = r.Width & " x " & r.Height

End Function

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

Answer 1

Я изменил

Set r = Range("MyArea")

на

Set r = Range(MyArea.Address)

и все заработало.