Código Excel VBA para copiar una cadena específica al portapapeles

Intento agregar un botón a una hoja de cálculo que, al hacer clic, copiará una URL específica en mi portapapeles.

Tenía un poco de conocimiento de Excel VBA, pero ha pasado un tiempo y estoy luchando.

Esta macro utiliza el enlace tardío para copiar texto en el portapapeles sin que sea necesario establecer referencias. Deberías poder simplemente pegar e ir:

Sub CopyText(Text As String) 'VBA Macro using late binding to copy text to clipboard. 'By Justin Kay, 8/15/2014 Dim MSForms_DataObject As Object Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") MSForms_DataObject.SetText Text MSForms_DataObject.PutInClipboard Set MSForms_DataObject = Nothing End Sub 

Uso:

 Sub CopySelection() CopyText Selection.Text End Sub