VBAで参照リンクを値にして別のシートに保存する方法

Question

いつも大変お世話になっております。
VBAで分からない点があったので、質問させてください。

前提
・ExcelのBOOKには3枚のシートがある
・先頭のシートには残りの2枚のシートから参照した値が書き込まれている。

上記のような状況で、
新しく他のブック（名前は固定で良い）に1枚目のシートの【値】を全てコピーする方法を
探しております。

一応試しに書いて見たのですが、
分からなかったのでどなたかご教授ください。

Public Function Copydata()

Dim sname As String
Dim rng As Variant
        
sname = ActiveSheet.Name 'シート名

'現状、選択範囲の指定になってますがここをシート全体の範囲にすればいけるのですが
'どうすればいいでしょうか。。。
rng = Selection.Address 

Worksheets(sname).Range(rng).Copy Destination:=Worksheets.Add.Range("A1")
ActiveSheet.Move
sheet1.PasteSpecial(xlPasteValuesAndNumberFormats, Application.CutCopyMode = False).Close

Answer 1

シート全体の範囲の表現としては、Sheetオブジェクトのcellsでインデックスを指定しない方法が使えると思います。
例えば、アクティブなワークシートの全てのセルを選択するなら。

ActiveSheet.cells.Select