Excel 在所有图纸中使用宏

我是VBA的新手，我设法创建了一个有效的用户表单，它很简单，可以一次输入一个呼叫详细信息

我的工作簿有几张“7月18日通话”、“8月18日通话”等。问题是代码仅适用于“7月18日通话”表

如果我改到另一个月，它会给我一个“下标超出范围”错误

我想做的就是在这个月使用宏，然后在八月使用宏，等等

代码是：

Private Sub CommandButton2_Click()

Dim lRow As Long
Dim ws As Worksheet
Set ws = Sheets("July 18 calls")
 
lRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With ws
    If Me.txtDateBox.Value = "" Then...AND MORE CODE...

我不能让我的头围绕代码，使其在任何活动的工作表工作，但我会满足于更简单的东西，即使我必须改变工作表的名称每月一次

首先尝试更换：

Set ws = Sheets("July 18 calls")

与：

要自动选择工作表，请使用：

Set ws = Sheets(Format(Date, "mmmm yy") & " calls")

---

谢谢你的回复，这很有效。而且，它给出了一个错误，因为8月份的标签有额外的空间@aureli您会发现使用宏将帮助您清理工作表。

Set ws = Sheets(Format(Date, "mmmm yy") & " calls")