I need to change macro ActiveWorkBook or ActiveSheet to only run on Sheet1

[adibakale]

I have a macro that deletes all blank rows in Column A. It seems to only work on the Active workbook or Active sheet, and I would like it to specifically run on Sheet1 regardless of what sheet I am viewing.

The name of Sheet1 is "Import" if that matters. Any help would be greatly appreciated - Thanks!

Here is the macro I am currently using

---

Sub deleteCells()

Dim rng As Range

Set rng = Range("A:A").SpecialCells(xlCellTypeBlanks)

rng.Rows.Delete Shift:=xlShiftUp

End Sub

 

[KingLarryXVII]

When defining your range, simply add "Worksheets("SHEETNAME").Range...

Sub deleteCells()

Dim rng As Range

Set rng = Worksheets("Sheet1").Range("A:A").SpecialCells(xlCellTypeBlanks)

rng.Rows.Delete Shift:=xlShiftUp


End Sub

 

[adibakale]

Works perfectly,Thank you!!!

Your awesome!