如何使此VBA代码循环访问指定位置的工作表，并删除每个工作表的每个单元格中的回车？

Sub RemoveLineBreaks()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 循环访问每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置要处理的范围，例如A1到Z100
        Set rng = ws.Range("A1:Z100")
        
        ' 循环访问范围内的每个单元格
        For Each cell In rng
            ' 检查单元格的值是否包含回车符
            If InStr(cell.Value, vbLf) > 0 Then
                ' 如果包含回车符，则替换为空字符串
                cell.Value = Replace(cell.Value, vbLf, "")
            End If
        Next cell
    Next ws
End Sub