当筛选的表列中没有一个单元格为空时，如何运行VBA代码？

Sub RunCodeWhenNoEmptyCellInFilteredColumn()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置筛选区域的范围
    Set rng = Range("A1:A10")
    
    ' 筛选区域是否有空单元格的标志
    Dim hasEmptyCell As Boolean
    hasEmptyCell = False
    
    ' 检查筛选区域的每个单元格是否为空
    For Each cell In rng.SpecialCells(xlCellTypeVisible)
        If IsEmpty(cell.Value) Then
            hasEmptyCell = True
            Exit For
        End If
    Next cell
    
    ' 如果筛选区域没有空单元格，则执行以下代码
    If Not hasEmptyCell Then
        ' 在此处编写需要执行的代码
        MsgBox "所有筛选的单元格都不为空！"
    End If
End Sub