If block Is selection01 Then
Dim ufs As UFSession = UFSession.GetUFSession
Dim note As Annotations.TableSection
Dim row3_tag As NXOpen.Tag
Dim tabular_note_tag As NXOpen.Tag
Dim col3_tag As NXOpen.Tag
Dim celltag As NXOpen.Tag
Dim type As Integer
Dim subtype As Integer
ufs.Obj.AskTypeAndSubtype(selection01.Tag, type, subtype)
If type = UFConstants.UF_tabular_note_type And subtype = UFConstants.UF_tabular_note_section_subtype Then
note = NXObjectManager.Get(selection01.Tag)
ufs.Tabnot.AskTabularNoteOfSection(note.Tag, tabular_note_tag)
ufs.Tabnot.AskNthRow(tabular_note_tag, 3, row3_tag)
ufs.Tabnot.AskNthColumn(tabular_note_tag, 3, col3_tag)
ufs.Tabnot.AskCellAtRowCol(row3_tag, col3_tag, celltag)
End If