VBA重命名当前工作簿所有工作表为对应工作表的“D5-L6”

以下是一个VBA宏代码，可以将当前工作簿中的所有工作表重命名为对应工作表的“D5-L6”：

Sub RenameWorksheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Name = ws.Range("D5").Value & "-" & ws.Range("L6").Value
    Next ws
End Sub

请注意，在运行此宏之前，请务必备份您的工作簿，以防止意外情况发生。