Oops, I'm under a lot of pressure and forgot to past the Macro. Here it is:
Sub Format_Duration()
Application.OpenUndoTransaction ("Format Duration")
On Error GoTo ErrorHandler
Check_if_Project_Open
frmFormatDuration.InitializeList
frmFormatDuration.cboDurUnit.SetFocus
frmFormatDuration.cboDurUnit.SelStart = 0
frmFormatDuration.cboDurUnit.SelLength =
frmFormatDuration.cboDurUnit.TextLength
frmFormatDuration.Show
ExitSub:
Application.CloseUndoTransaction
Exit Sub
ErrorHandler:
ProcessError Err
GoTo ExitSub
End Sub
Private Sub Check_if_Project_Open()
'Procedure checks if a project file is open
On Error GoTo NoFileOpen:
Dim strName As String
strName = ActiveProject.Name
Exit Sub
NoFileOpen:
MsgBox MSG_NO_PROJECT_OPEN, vbExclamation + R_TO_L,
Title:=Application.Name
End 'End the macro
End Sub