スキルアップ・問題解決なら、モーグにおまかせ！

手動で印刷範囲を選択し、マクロで「印刷範囲の設定（S）」ボタンを押すと
    ActiveSheet.PageSetup.PrintArea = "$C$1:$BP$23"
この様に記述されました。
 
そこで、
 
Sub 印刷範囲の設定()
 
Dim myxell As Variant
 
    Range("C65536").End(xlUp).Offset(0, 65).Select
    Range(ActiveCell, Cells(1, 3)).Select
'
mycell = Range(ActiveCell, Cells(1, 3))
 
    ActiveSheet.PageSetup.PrintArea = mycell
 
End Sub
 
このようなマクロを作ってみましたが、動作しません。
 
"$C$1:$BP$23"の$BP$23の部分をマクロで設定する方法を教えて下さい。

印刷範囲のアドレスを文字で設定する必要がありますよ。
(質問のコードは何を渡しているかそちらで確認してください）
 
＞Dim myxell As Variant
        ↓
　Dim mycell As Variant
 
＞mycell = Range(ActiveCell, Cells(1, 3))
        　　　↓
　mycell = Selection.Address

有難うございました。
うまく設定してくれました。