Macro - Copy+Paste selection from Excel to Notepad

[NoMenClature]

This macro worked pre Windows 11 but now only opens the notepad blank without the selected cells from Excel:

Sub CopySelectionNotepad()
' Keyboard Shortcut: Ctrl+shift+q

With Application
Selection.Copy
Shell "Notepad.exe", 3
SendKeys "^v"
VBA.AppActivate .Caption
.CutCopyMode = False
End With
End Sub

 

[Sam_D_Ben]

Can you please provide a little bit more of your script. I guess this is resolved before.

 

[NoMenClature]

That is the entire script. Unlike above the issue is not that it won't save and close, the issue is that the script hasn't worked since transitioning from Windows 10 to Windows 11.
Notepad opens but the selected text is not copied & pasted to it.