明确工作簿和工作表-在未限定工作表的情况下，切勿使用Range/Cells（尽管如果您引用的是关联的工作表，则可以在工作表代码模块中使用它）。

Private Sub CommandButton1_Click()
    Dim wb As Workbook, ws As Worksheet
    Set wb = ThisWorkbook                           'or ActiveWorkbook?
    With wb.Worksheets("HOME")
        Set ws = wb.Worksheets(.Range("G1").Value)  'create a worksheet reference
        ws.Range("A1").Value = "TEXT"               '...and use it
        .Range("g4:g24").Copy ws.Range("f4")
    End With
End Sub

例如，请参阅：工作表、单元格和区域的默认范围是什么？

一般来说，你有一个很好的开始，但它可以在更少的行和更快的速度完成，如下图所示：

Sub ExampleSub()

    Dim SheetName As String

    SheetName = Worksheets("HOME").Range("A1").Value

    Worksheets("HOME").Range("G4:G24").Value = Worksheets(SheetName).Range("G4:G24").Value

End Sub

甚至不需要使用变量SheetName，但它可以使事情变得简单，它现在还可以在子例程中重用。引用工作表的另一种方法是将变量设置为工作表：

Sub ExampleSub()

    Dim SheetName As Worksheet
    Dim HomeSheet As Worksheet

    Set HomeSheet = Worksheets("HOME")
    Set SheetName = Worksheets(HomeSheet.Range("A1").Value)

    HomeSheet.Range("G4:G24").Value = SheetName.Range("G4:G24").Value

End Sub