Beforedoubleclick code only works once

[S Oberlander]

I have the below code to work on a pivot table, the code works fine the first time I use it in a workbook.
When I use it a second time the OnAction is not getting assigned properly and I get this popup when I try to use the command button.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    'On Error GoTo ex
    Selection.ShowDetail = True
    Range("K:K,M:N,E:E,O:Y").EntireColumn.Hidden = True
    ct = Range("F2")
    If Evaluate("isref('" & ct & "'!A1)") Then
      Application.DisplayAlerts = False
      Sheets(ct).Delete
      Application.DisplayAlerts = True
    End If
    ActiveSheet.Name = ct
    ActiveSheet.Buttons.Add(937.5, 23.25, 114.75, 27).Select
    Selection.OnAction = "R:\Macro Data\RP Macro Wrkbk!refreshT"
    Selection.Characters.Text = "Refresh Table"
    Range("A1").Select
ex:
End Sub

 

[rlv01]

I think your problem might be that this statement

     Selection.OnAction  = "R:\Macro Data\RP Macro Wrkbk!refreshT"

is in error, and should be

  Selection.OnAction =  "R:\Macro Data\RP Macro Wrkbk.xlsm!refreshT"

 

[S Oberlander]

I think your problem might be that this statement

Right, that is where the problem is
however first of all, its xlsb, and I tried it already
the issue is that it is somehow inserting a "1" after the "R"

 

[rlv01]

however first of all, its xlsb, and I tried it already

Ah. You were expecting a mind reader. Sorry to disappoint. Good luck with your problem.

 

[S Oberlander]

Ah. You were expecting a mind reader. Sorry to disappoint. Good luck with your problem.

Not really I was just saying that I tried that already and it happened to have been with xlsb....
What I really need to know is how the 'R:\ becomes 'R1:\