在vb中怎么判断某一个sheet是否为空

在vb中如何判断某一个sheet是否为空
vb编程中涉及到sheet页是否为空的判断。判断当前页是否为空,为空的话向里面写入内容,不为空的话则接着判断下一个sheet页。求指点,急
VB sheet

------解决方案--------------------
本帖最后由 bcrun 于 2013-06-18 16:15:36 编辑
    If Sheet1.UsedRange.Rows.Count = 1 Then
        If Sheet1.UsedRange.Columns.Count = 1 Then
            If Sheet1.UsedRange.Cells(1, 1) = "" Then
                MsgBox "空表格"
            End If
        End If
    End If