☰

シートを参照する方法（名前がわからない）名前はセル参照から取得されます

tag-icon • tag-icon vba macros
シートを参照する方法（名前がわからない）名前はセル参照から取得されます 
Sub New_Code

Dim exists as Boolean

For a = 1 To Worksheets.Count
    If Worksheets(a).Name = ThisWorkbook.Worksheets("Current").Range("V2") Then
        exists = True
    End If
Next a

If Not exists Then
    Worksheets.Add.Name = ThisWorkbook.Worksheets("Current").Range("V2")
End If
wk1.Sheets("Ab").Activate               wk1.Sheets("Ab").Range("A1:CK70").SpecialCells(xlCellTypeVisible).Copy            ThisWorkbook.Worksheets(ThisWorkbook.Worksheets("Current").Range("V2").Value).Activate                ThisWorkbook.Worksheets(ThisWorkbook.Worksheets("Current").Range("V2")).Range("A2").PasteSpecial xlPasteValuesAndNumberFormats

答え1

Dim sh As Worksheet、shNam As String shNam = ActiveSheet.range("A1").Value

    Sheets(shNam).Activate

関連情報