Kopiointi leikepöydälle (VBA) ei toimi enää

Olen kerännyt tietoja leikepöydälle seuraavalla tavalla. Tähän asti se on toiminut, mutta nyt Excel on päättänyt tuottaa leikepöydälle pelkkää älämölöä. Excelissä tämä näkyy ruutuina ja notepad ssa mustalla pohjalla näkyvinä "xEF"-merkkeinä. Mistähän tämä mahtaa kiikastaa? Koneessa on W10 ja Office on 2016. Uuden Officen jälkeen on ollut selittämättömiä ongelmia.

Dim s As String
Set MyData = New DataObject

MyData.SetText (s) ' muuttujan s sisällöllä ei ole väliä, aina sama juttu

MyData.PutInClipboard