Add this to the sub right before you set the screen updating back to True note: this will delete all blanks in column B
[vba]Worksheets("Locations").Range("B:B").SpecialCells(xlCellTypeBlanks).EntireR ow.Delete[/vba]
Add this to the sub right before you set the screen updating back to True note: this will delete all blanks in column B
[vba]Worksheets("Locations").Range("B:B").SpecialCells(xlCellTypeBlanks).EntireR ow.Delete[/vba]
"Intellectual passion occurs at the intersection of fact and implication."
SGB
Posting Permissions
Reply With Quote