G Gary''s Student Feb 26, 2010 #2 If you have already Selected some stuff: Sub dural() Application.Dialogs(xlDialogSort).Show End Sub