werkblad naam d.m.v. vba kopiëren naar klembord

[DickdeJong11]

Goedendag,

Ik wil de naam van sheet 1 kopiëren naar het klembord, om na het sluiten van het bestand te gebruiken in een andere applicatie.
Wie weet die VBA code???

Ik hoor graag.
Alvast dank.

 

[edmoor]

Bijvoorbeeld zo:

Sub SchrijfKlembord()
    Dim DataObj As Object
    Dim Tekst As String
    
    Set DataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    Tekst = Sheets(1).Name
    DataObj.SetText Tekst
    DataObj.PutInClipboard
End Sub

 

[DickdeJong11]

prima

Deze code werkt perfect, bedankt:d