在VBA（Visual Basic for Applications）中，要获取当前活动的工作表（即当前被选中的工作表），可以使用`ActiveSheet`属性。以下是一个简单的示例，演示如何使用VBA来引用当前活动的工作表：
```vba
Sub ShowActiveSheetName()
' 显示当前活动工作表的名称
MsgBox "当前活动的工作表是: " & ActiveSheet.Name
End Sub
```
将上述代码放入Excel的VBA编辑器中，然后运行`ShowActiveSheetName`子程序，它会弹出一个消息框，显示当前活动工作表的名称。
