Macro Suddenly Stopped Working

[JohnTravolski]

I have a macro to copy the selected cells as a comma delimited string to the clipboard:

Sub CopySelectedAsCommaDelimittedString()

    If Not Selection Is Nothing Then
   
        Dim rtn As String: rtn = vbNullString
        Dim r As Range
        For Each r In Selection.Rows
            Dim a: a = Application.Transpose(Application.Transpose(r))
            rtn = rtn & Strings.Join(a, ",")
        Next
   
        If rtn <> vbNullString Then
   
            Dim clip As MSForms.DataObject: Set clip = New MSForms.DataObject
            clip.SetText rtn
            clip.PutInClipboard
   
        End If
    End If
End Sub

It used to work fine. However, within the past couple of weeks, it simply stopped working. Nothing is copied to the clipboard anymore when I run it with cells selected. I have no idea what changed. Does anybody know why this might be? Is there something in Excel I should check is enabled? Any advice as to how to potentially fix this?

I have checked and MSForms is enabled:

 

[JohnTravolski]

Turns out it was because file explorer was open. In Windows 10, with file explorer open, the code doesn't work. It works as soon as it is closed. To fix that, I had to use the solution here:

Clipboard copy VBA code not working in Windows 10

Dear All, While working in Windows 7 this code was working in Excel 2013 But this same code is not working in Windows 10 and returns ASCI code ?? Interesting fact is if 2 more windows explorer (folders) are open this error appears If the windows explorer (folders) are closed this same code is...

chandoo.org