@johan.degreef
Yes this can be done. This is a basic sample without any checks, so i asumed there is a revision table on the sheet. In my case i only edited the last revision row.
It is basicly the same as double click on the table and edit / enter the text in the description field.
Dim oDoc As DrawingDocument
oDoc = ThisDoc.Document
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
Dim oRevBlock As RevisionTable
oRevBlock = oSheet.RevisionTables(1)
myparam = InputBox("Give Revision Description", "Revision Table", "New Edit")
oRevBlock.RevisionTableRows(oRevBlock.RevisionTableRows.Count).Item(3).Text = myparam
