Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Private Sub btnEmal_Click() On Error GoTo ErrHandler Dim cl1 As Cell Dim cl2 As Cell Dim tbl As Table Dim rng As Range Set tbl = ActiveDocument.Tables(1) Set cl1 = tbl.Cell(2, 2) Set cl2 = tbl.Cell(11, 5) Set rng = cl1.Range.Duplicate rng.End = cl2.Range.End rng.Delete ActiveDocument.Range , ContentControls("Shift").Range = 1 Exit Sub ErrHandler: MsgBox Err.Description End Sub
Join the community of 500,000 technology professionals and ask your questions.