Code:
Dim tbl As Range
Set tbl = ws.Range("Table1")
Dim archive As Worksheet
Set archive = ThisWorkbook.Sheets("Sheet1")
Dim rng As Range
Set rng = tbl.SpecialCells(xlCellTypeBlanks)[INDENT]If rng.Cells.Count <> tbl.Cells.Count Then[/INDENT]
[INDENT=2]'do stuff[/INDENT]
[INDENT]End If
[/INDENT]I'm not sure why, but I am getting a run time error for set rng = tbl.SpecialCells(xlCellTypeBlanks) if the range is blank...
Maybe there is a better way of doing this to begin with, but the end game goal is to have the code copy the table and paste it else where if its not blank. I just don't want it to copy and paste if its blank...
