是否可以简化此宏以检查单元格是否为空，然后保存相应的工作表？

Sub CheckAndSaveWorksheet()
    Dim ws As Worksheet
    Dim cell As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为相应的工作表名称
    
    '检查A1单元格是否为空
    Set cell = ws.Range("A1")
    If cell.Value = "" Then
        MsgBox "A1单元格为空！"
        Exit Sub
    End If
    
    '保存工作表
    ws.Save
    
    MsgBox "工作表已保存。"
End Sub