VBA Sheet Selection

[Tronbotic]

Hi All,

I am having some issues with VBA selecting a specific sheet and then to run a delete row code.

The code runs fine if I manually select the sheet and execute but i'd like to add a button to my 'front page'.

Please see my code below,

Sub DeleteRow()
Dim r As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For r = LastRow To 1 Step -1
If Cells(r, 1) = 0 Then
Rows(r).Delete
End If
Next r
End Sub

The sheet I want to access to run the above code on is called Raw Sales.

Can anybody help me with expanding the above code to run from a button on a different sheet?

Any help will be hugely appreciated.

 

[VBE313]

Sub DeleteRow()
Dim r As Long
Dim LastRow As Long
With Sheets("Raw Sales")
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For r = LastRow To 1 Step -1
        If .Cells(r, 1) = 0 Then
            .Rows(r).Delete
        End If
    Next r
End With
End Sub

 

[Tronbotic]

Thank you! Everything I tried threw up an error.

 

[VBE313]

You are welcome. When you use

With Sheets

You can then put a "." in front of Cells and Rows so it knows it is grabbing that sheet.

 

[Tronbotic]

I had left out the ‘with’ hence the error. Thanks again ?

 

[VBE313]

I had left out the ‘with’ hence the error. Thanks again ?

yes but you also have to include the period "." in front of all Cells and Rows

 

[Tronbotic]

And that aswell then ?