以下を登録してみた
今までずっと普通に手打ちしていたが
コーディングを助けてもらうのは
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