VBA PutInClipboard suddenly stopped working -

[Johnny C]

Hi

Just been away for a week. Until I went way this has worked for years. Now it's just returning 2 ASCII 63's. I checked, MS forms 2.0 and Microsoft Excel 15 Objects are both included in References, can anyone spot why it's not working? it's just an icon on the QAT which copies in the workbook refs and puts them into the clipboard so I can paste as text elsewhere.

Sub CopyDocPathName()
Dim DataObj As New MSForms.DataObject
Dim SheetNarr$, TempPlural$
Dim SelectedObject As Variant
If ActiveSheet.Type = xlWorksheet Then
    If TypeName(Selection) = "Range" Then
        If Selection.Cells.Count = 1 Then TempPlural = "" Else TempPlural = "s"
        SheetNarr = "Data source: " & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & " Tab [" & ActiveSheet.Name & "] Cell" & TempPlural & " " & Selection.Address
    End If
End If
DataObj.SetText SheetNarr
DataObj.PutInClipboard
End Sub

TIA

 

[MickG]

Have you got "File Explorer" open , Try closing it .!!!

 

[Johnny C]

Hi Mick
It works fine with File Explorer open.
I tracked it down to going wonky when I had 2 instances of Excel open, a regular instance (i.e. installed program) and an instance of Excel on Citrix (which has an Infor Q&A add-in). I should have known, Infor Q&A gets uppity when you have more than one workbook open even if you're working on the non-Citrix instance. I don't know why it does, you'd have thought they were totally independent but it seems not, the Q&A session must hog some common resource in the registry or something.

 

[MickG]

Glad you've solved it, "File Explorer" open was causing my problem.