Problem in getting PasteSpecial together with Unicode text to paste where I want.

[richarddawson]

I can get :-
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False
to work.

But setting the active cell is not straightforward.
Workbooks("myBook").activate always works but
Cells(1, 1).select (and Cells(1, 1).activate) sometimes work but are both unreliable.

Can anyone help, please?

 

[MARK858]

Then you haven't got anything new in the clipboard being copied, to see what I mean type something in a cell on a sheet click copy and run the code below and see what happens on your ped sheet.

Sub test()

    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
       .GetFromClipboard
       Sheets("ped").Cells(1, 1) = .GetText
    End With

End Sub

 

[richarddawson]

Thanks, I see what you mean.

I wonder if the problem is one sub using the Office clipboard, and the other the Windows clipboard? I know of no way to find out.
I have reloaded Office in case something had gone astray.