シート名は、定数です

VBAProject --> 標準モジュール --> ModuleXX 

Private Function アクティブセル領域()

    Sheets(ShtName_リスト).Select
    Cells(1).CurrentRegion.Select

End Function

　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ