如何使用宏中大小写切换excel中的整个数据集

Sub ToggleCase()
    Dim rng As Range
    Dim cell As Range
    
    '选择要操作的数据集范围
    Set rng = ActiveSheet.UsedRange
    
    '循环遍历每个单元格
    For Each cell In rng
        '判断单元格的数据类型
        If VarType(cell.Value) = vbString Then
            '切换大小写
            If UCase(cell.Value) = cell.Value Then
                cell.Value = LCase(cell.Value)
            Else
                cell.Value = UCase(cell.Value)
            End If
        End If
    Next cell
End Sub