Rasm,
As you continue to expand the quantity of macros that you use at some point this may become helpful. It is a macro that can be used as a shortcut to other macros. You can Customize your ribbon and put this macro on the ribbon or you can use a shortcut key for this particular macro that will give you access to other frequently used macros:
Code:
Sub MacroShortcutList()
'Standard Module code!
'Display pick list box.
Dim Message, Title, Default, MyPick
'Set prompt."
'Add other macros to list with & Chr(13) & "Macro Name"
Message = "Select the number of the macro you want to run:" & Chr(13) & _
"1. Select No Macro" & Chr(13) & "2. Delete Rows Based On Criteria" _
& Chr(13) & "3. Freeze Top Row"
'Set title.
Title = "Select Macro!"
'Set default.
Default = "1"
'Display message, title, and default value.
MyPick = InputBox(Message, Title, Default)
'Optional, control box position!
'Display dialog box at position 100, 100.
'MyPick = InputBox(Message, Title, Default, 100, 100)
Select Case MyPick
Case 1
MsgBox "No Macro Selected!"
'Add additional Case code as needed!
Case 2
Call DeleteRowsCriteria
Case 3
Call FreezeTopRow
Case Else
Exit Sub
End Select
End Sub
Change the Case to call your own macros. The Message = portion is just text that is used in the message box. Chr(13) is equivalent to the enter key.
Bookmarks