Macro Help Needed

[ironsides]

I made the macro below, closed the recording, but when I place my cursor on the button instead of the cursor finger waiting for my enter command, the four arrow (up-down, left-right) remains waiting for an edit. What can I do to correct this?


Sub Delete()
'
' Delete Macro
' Macro recorded 1/23/2010 by DCS Valued Customer
'
' Keyboard Shortcut: Ctrl+Shift+D

Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 19 Step -1
With Range("A" & i)
If WorksheetFunction.CountIf(Range("A19:A" & i), .Value) > 1 Then .EntireRow.Delete
End With
Next i
Application.ScreenUpdating = True

End Sub

 

[jbeaucaire]

SOunds like you added a button from the Control Toolbox. When you add a Control Toolbox button, it puts the sheet into Design Mode and you have to click the Exit Design Mode icon to turn macros back on.

Better, use a button from the Forms Toolbar as it will immediately allow you to assign a regular macro to it, then use it.

 

[ironsides]

SOunds like you added a button from the Control Toolbox. When you add a Control Toolbox button, it puts the sheet into Design Mode and you have to click the Exit Design Mode icon to turn macros back on.

Better, use a button from the Forms Toolbar as it will immediately allow you to assign a regular macro to it, then use it.

Thank you. I solved it by Assigning A Macro. First time that happened to me. But it works.