Function AppPath() As String AppPath = ActiveWorkbook.Path If Not RightB$(AppPath, 2) = "\" Then AppPath = AppPath & "\" End Function