Your code has a lot of problems, as I mentioned briefly in the comments. Try to see if the code below worked for you.
Private Sub CommandButton1_Click()
Dim SurveyData
Dim Tb1, Tb2 As word.Table
Dim irow, icol, i, j, Tabnum As Integer
Dim Strng As String
Dim RowCount, Responsevalue As
…
Top comments (0)