Via de site van rond de bruin de oplossing gevonden.
https://www.rondebruin.nl/win/s2/win015.htmhttps://
Maar wat er niet instaat is wanneer deze code aanspreken. Komt uit het bovenstaande link
https://www.rondebruin.nl/win/s2/win015.htmhttps://
Maar wat er niet instaat is wanneer deze code aanspreken. Komt uit het bovenstaande link
Code:
Sub RefreshRibbon(Tag As String)
MyTag = Tag
If YourRibbon Is Nothing Then
Set YourRibbon = GetRibbon(Sheets(1).Range("A30").Value)
YourRibbon.Invalidate
MsgBox "The Ribbon handle was lost, Hopefully this is sorted now by the GetRibbon Function?. You can remove this msgbox, I only use it for testing"
Else
YourRibbon.Invalidate
End If
End Sub