そのパスが間違っていないのであれば下記を試して見て下さい。 ExcelPass = Shell("""" & Part01 & """ """ & DefOutDir01 & DefOutFile01 & """", vbNormalFocus)