You can loop through all the controls and apply the appropriate value from the worksheet to the titled control e.g. as follows. You are still going to have to associate 30 titles with the 30 Excel cells
Code:
Dim oCC As ContentControl
For Each oCC In ActiveDocument.ContentControls
Select Case oCC.TITLE
Case "title of control 1"
oCC.Range.Text = whatever
Case "title of control 2"
oCC.Range.Text = whatever
Case "title of control 3"
oCC.Range.Text = whatever
'etc
End Select
Next oCC