以下を登録してみた

 

今までずっと普通に手打ちしていたが

コーディングを助けてもらうのは

VBAerにとって、もっと早く気づくべき

生産性向上策だった。

 

'
' イミディエイトウィンドウに現在の選択セルをシートからコードとして表示する(ただし複数セル選択中は呼び出せない)
'
Sub ShRg()
Debug.Print "WorkSheets(""" & Selection.Parent.Name & """).Range(""" & Selection.Address & """)"
End Sub
'
' イミディエイトウィンドウに現在の選択セルをブックからコードとして表示する(ただし複数セル選択中は呼び出せない)
'
Sub BkRg()
Debug.Print "WorkBooks(""" & Selection.Parent.Parent.Name & """).WorkSheets(""" & Selection.Parent.Name & """).Range(""" & Selection.Address & """)"
End Sub