excel VBA アクティブシート名を取得してコピーする

'アクティブシート名を取得

Dim asname As String

asname = ActiveSheet.name

    

'シートをコピー

Sheets(asname).Select

Sheets(asname).Copy After:=Sheets(asname)

Sheets(asname).Select