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