セルの値を取得して任意の場所に書き出すマクロ

Sub 任意の値を取得()
‘概要 :指定セルに値を取得する
‘引数 :なし
‘戻り値:なし
'【変数定義】

Dim address As String

'値格納用

Dim rangeName As String

'取得レンジ名(A1等)

'取得レンジ名設定

rangeName = "A3"

'セルの値取得 address = getValue.getRange(rangeName)

Range("A6").Value = address
End Sub

Public Function getRange(address As String) As String
‘概要:任意の引数の値を取得する
‘引数:セル番地
‘戻り値:セルの値
'値を取得して元の場所に返す getRange = Range(address).Value
End Function

以下画面イメージ