|
Just select the sheet you want to change first (example):
Worksheets("BOX").Select
Range("B3:HZ14").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
Worksheets("OUT").Select
Range("B3:HZ14").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
RK
__________________
If living life were easy, everyone would be doing it. - anon
|