[Iska]

Например, так:

Скрытый текст

Код:

Option Explicit

Sub Кнопка1_Щелкнуть()
    Dim strTempFile As String
    Dim objRange As Range
    
    strTempFile = GetTemporaryName()
    
    With CreateObject("Scripting.FileSystemObject").CreateTextFile(strTempFile, True)
        For Each objRange In Selection
            .WriteLine objRange.Text
        Next
        
        .Close
    End With
    
    CreateObject("WScript.Shell").Run """PowerShell_ISE.exe"" -File """ & strTempFile & """", 1, False
End Sub

'=============================================================================
' Серый форум / vbscript: генерация пути для временного файла или папки
' (http://forum.script-coding.com/viewtopic.php?id=1221)
'=============================================================================
Function GetTemporaryName()
    Const TemporaryFolder = 2
    
    Dim strTempName
    
    With CreateObject("Scripting.FileSystemObject")
        Do
            strTempName = .BuildPath(.GetSpecialFolder(TemporaryFolder), .GetBaseName(.GetTempName) & ".ps1")
        Loop While .FileExists(strTempName) Or .FolderExists(strTempName)
    End With
    
    GetTemporaryName = strTempName
End Function
'=============================================================================