投稿/コメントを表示します。

上位のオブジェクト、理解できました。
.Parent を使わない方法で書いてみました。
Sub sample()
    Dim rng As Range
    Set rng = Range("C3")
    Debug.Print rng.Worksheet.Name
End Sub

2018/05/23 06:09