Content Controls - Add with Rows with Sequential Numbering

[gmaxey]

Al,

For the numbering part. Change your CC titles to include a "_" delimiter e.g., Charge_1, Charge_2, etc. Then modify the code:

'Work with new row content.
With .Rows(iRow)
For lngIndex = 1 To .Previous.Range.ContentControls.Count
Set oCC_Master = .Previous.Range.ContentControls(lngIndex)
Set oCC_Clone = .Range.ContentControls(lngIndex)
Dim arrTitle() As String
arrTitle = Split(oCC_Master.Title, "_")
oCC_Clone.Title = arrTitle(0) & "_" & Val(arrTitle(1) + 1)