Delete button that runs macro

**Roco** · 09-30-2015, 06:13 PM

I created a button to run the macro listed below. I had help with the forum with the macro. I would like to add a line to it to delete the button once the macro has run. I would appreciate it very much.

Sub DeleteRows()
    Dim lFirstRow As Long, llastRow As Long

    lFirstRow = Sheet1.Range("B:D").Find(what:="Total Cost").Row + 3
    llastRow = Sheet1.Range("A:A").Find(what:="Terms:").Row - 2
    Sheet1.Range("A" & lFirstRow & ":A" & llastRow).EntireRow.Delete

End Sub

**Ajohn403** · 09-30-2015, 06:28 PM

Try this
edit; fixed the code

Sub DeleteRows()
    Dim lFirstRow As Long, llastRow As Long
    Dim ButtonText As String
    
    lFirstRow = Sheet1.Range("B:D").Find(what:="Total Cost").Row + 3
    llastRow = Sheet1.Range("A:A").Find(what:="Terms:").Row - 2
    Sheet1.Range("A" & lFirstRow & ":A" & llastRow).EntireRow.Delete

    ButtonText = Application.Caller
    ActiveSheet.Shapes(ButtonText).Delete
End Sub

**Roco** · 09-30-2015, 07:07 PM

Thanks it works great.

**Ajohn403** · 09-30-2015, 07:21 PM

No problem, glad to hear it!

Delete button that runs macro

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Delete button that runs macro

Re: Delete button that runs macro

Re: Delete button that runs macro

Re: Delete button that runs macro

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Macro runs correctly when run from Editor, but not from Command Button??

[SOLVED] Delete Cell Contents when macro runs

Delete Cell Value after Macro Runs

I have a button that runs a macro - I want to increase the size of the button

[SOLVED] code behind the command button that runs another macro

How do I make a cell into a button that runs a macro?

Creating a Macro, that creates a new Button, which itself runs a Macro.. Possible?

Bookmarks

Bookmarks

Posting Permissions