Try this.
Sub Test() Dim retval As Variant Dim psCmd As String psCmd = "Powershell -noprofile -ExecutionPolicy RemoteSigned &'C:\temp\copy.ps1'" Debug.Print psCmd retval = Shell(psCmd, vbNormalFocus) End Sub
'copy.ps1 'Copy-Item -Path 'C:\temp\iso\*.img' -Destination 'C:\temp\iso2\' -recurse -Force -Verbose