Delete Revision Table

[Ktomberlin]

I've tried to search for this for awhile and i came up empty.  I'm simply trying to delete the revision table if it exists on a drawing.  I did find where you can't do anything with Rev Tags with the API, but what about the Actual Revision Table? 

Trying to get this to work;

If iProperties.Value("Project", "Revision Number")>0
Dim oRevTable as RevisionTable
oRevTable = ActiveSheet.Sheet.RevisionTable.Item(1) 
oRevTable = nullRevisionTable

[Vladimir.Ananyev · Accepted solution]

RevisionTable.Delete method deletes this RevisionTable object.

[Ktomberlin]

Got it working thanks

If iProperties.Value("Project", "Revision Number") > 0 Then
ActiveSheet.Sheet.RevisionTables.Item(1).delete
End If