Button VBA

[billandrew]

Having an issue with running the code below inserted into a shape. There is no issue when executing via the editor. Not sure what is incorrect

Sub DeleteMon()

Application.ScreenUpdating = False


Dim lastrow As Long
Dim w As Long

lastrow = Range("C" & Rows.Count).End(xlUp).Row
Sheets("Areas").Activate

For w = lastrow To 6 Step -1
If Cells(w, "C").Value = "Monday" Then
Cells(w, "C").EntireRow.Delete

End If
Next w

End Sub

 

[Fluff]

I'm guessing that the shape is not on the Areas sheet, in which case swap these 2 lines over

lastrow = Range("C" & Rows.Count).End(xlUp).Row
 Sheets("Areas").Activate

 

[billandrew]

Excellent

Don't think that was a guess.. appreciate the help as always

 

[Fluff]

Glad to help and thanks for the feedback