To create a macro that resets the title block field in drawing, I created a macro to delete the existing title block table.

Sub DelTitleBlock() Dim swApp As Object Dim swModel As SldWorks.ModelDoc2 Dim swFeat As SldWorks.Feature Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swFeat = swModel.GetCurrentSheet.TitleBlock.GetFeature swModel.ClearSelection2 True Debug.Print swModel.Extension.SelectByID2(swFeat.Name,