On Error Resume Next Dim y As Integer Dim AppName As String Dim ManFileName As String Dim FullAppExeNameAndPath As String FullAppExeNameAndPath = Application.ExecutablePath y = Application.StartupPath.Length '''' y = FullAppExeNameAndPath.LastIndexOf("") y = y + 1 AppName = FullAppExeNameAndPath.Substring(y, FullAppExeNameAndPath.Length - y) ManFileName = AppName & ".manifest"