Clipboard erased after running macro

[ttratl]

This is annoying:
I copy stuff from one sheet, go to another sheet, run this simple macro to reset filtered lists:

Sub ResetFilteredLists()
    On Error Resume Next
    ActiveSheet.ShowAllData
    Range("B2").Select
    End Sub

then try to Paste, and the macro has cleared the clipboard.

Any ideas how to stop this?

it doesn't happen with this macro:

Sub nextavailablerow()
    Range("b65536").End(xlUp).Offset(1, 0).Select
End Sub

so I'm puzzled....

 

[ttratl]

Ok so used bits of these macros to make it work

public strClip as String

Private Sub getClipboard()
    Dim MyData As DataObject

    On Error Reumse Next
    Set MyData = New DataObject
    MyData.GetFromClipboard
    strClip = MyData.GetText
End Sub

Private Sub setClipboard()
    Dim MyData As DataObject

    On Error Resume Next
    Set MyData = New DataObject
    MyData.SetText strClip
    MyData.PutInClipboard

End Sub