Try this in the user form code
with this in the Macros modulePrivate Sub CommandButton1_Click() sMacroToRun = ListBox1.Column(1) Me.Hide With Application .Run sMacroToRun End With Unload Me End Sub
Option Explicit Public sMacroToRun As String Sub UF_Show() UFListBox.Show End Sub