Microsoft Office Forums - View Single Post - Another Sequential Numbering Question (1,2,3a,3b,3c,4,5,6)

macropod · 03-21-2016, 04:24 AM

Surely it would be better to give the user just one question with a question and code like:

Code:

With Selection.Tables(1)
  With .Cell(.Rows.Count, 1).Range
    If MsgBox("Start/Continue Level 2 numbering?", vbYesNo, "Inspection Report") = vbYes Then
      .Style = "Heading 2"
    Else
      .Style = "Heading 1"
    End If
  End With
End With

Note: The above code only uses the 'Heading 1' & 'Heading 2' Styles for demonstration purposes.