snippets/microsoft/ms-office/excel/macros/Personal_Macro_Workbook_to_Clipboard.vba

Sub Personal_Macro_Workbook_to_Clipboard()
    Dim myData As DataObject
    Dim Output As String
    Output = Application.StartupPath + "\Personal.xlsb"
    Set myData = New DataObject
    myData.SetText Output
    myData.PutInClipboard
    MsgBox Output, vbOKOnly, "Personal Macro Workbook"
End Sub