选择工作簿中所有工作表中的A1:D10

Sub Sheet3_按钮1_Click()
    choice2

End Sub
Sub choice2()
    ThisWorkbook.Sheets.Select '组合工作表'
    ActiveSheet.[A1:D10].Select '选择区域'
End Sub

ThisWorkbook  工作簿

ThisWorkbook.Sheets  所有工作表

ActiveSheet 激活的工作表

[A1:D10]  区域