Where is this 'count responses' code failing?

Hello,

As you can see below, I have used 15 variables to store the counts for different combinations in response to the question "Have you ever been a member of the armed forces?"

My output table is the problem because it groups responses by gender, separating men who have served in the forces, from women who have served etc.

It outputs the final counts into a table, HOWEVER.

Any response other than male fails to work and the output is always 0.

Can anybody help correct the below code?

Sub Forces()

Dim Ws As Worksheet

Dim maleyes As Long
Dim malevet As Long
Dim maleno As Long
Dim femaleyes As Long
Dim femalevet As Long
Dim femaleno As Long
Dim intersexyes As Long
Dim intersexvet As Long
Dim intersexno As Long
Dim otheryes As Long
Dim othervet As Long
Dim otherno As Long
Dim prefyes As Long
Dim prefvet As Long
Dim prefno As Long

For Each Ws In ActiveWorkbook.Worksheets

If Ws.Range("F6") = "Male" Then
If Ws.Range("H10") = "Yes - Serving" Then
maleyes = maleyes + 1
ElseIf Ws.Range("F6") = "Male" Then
If Ws.Range("H10") = "Yes - Veteran" Then
malevet = malevet + 1
ElseIf Ws.Range("F6") = "Male" Then
If Ws.Range("H10") = "No - not and never been a member" Then
maleno = maleno + 1
ElseIf Ws.Range("F6") = "Female" Then
If Ws.Range("H10") = "Yes - Serving" Then
femaleyes = femaleyes + 1
ElseIf Ws.Range("F6") = "Female" Then
If Ws.Range("H10") = "Yes - Veteran" Then
femalevet = femalevet + 1
ElseIf Ws.Range("F6") = "Female" Then
If Ws.Range("H10") = "No - not and never been a member" Then
femaleno = femaleno + 1
ElseIf Ws.Range("F6") = "Intersex" Then
If Ws.Range("H10") = "Yes - Serving" Then
intersexyes = intersexyes + 1
ElseIf Ws.Range("F6") = "Intersex" Then
If Ws.Range("H10") = "Yes - Veteran" Then
intersexvet = intersexvet + 1
ElseIf Ws.Range("F6") = "Intersex" Then
If Ws.Range("H10") = "No - not and never been a member" Then
intersexno = intersexno + 1
ElseIf Ws.Range("F6") = "Other" Then
If Ws.Range("H10") = "Yes - Serving" Then
otheryes = otheryes + 1
ElseIf Ws.Range("F6") = "Other" Then
If Ws.Range("H10") = "Yes - Veteran" Then
othervet = othervet + 1
ElseIf Ws.Range("F6") = "Other" Then
If Ws.Range("H10") = "No - not and never been a member" Then
otherno = otherno + 1
ElseIf Ws.Range("F6") = "Prefer not to say" Then
If Ws.Range("H10") = "Yes - Serving" Then
prefyes = prefyes + 1
ElseIf Ws.Range("F6") = "Prefer not to say" Then
If Ws.Range("H10") = "Yes - Veteran" Then
prefvet = prefvet + 1
ElseIf Ws.Range("F6") = "Prefer not to say" Then
If Ws.Range("H10") = "No - not and never been a member" Then
prefno = prefno + 1

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

Next Ws

Cells(76, 2).Value = maleyes
Cells(76, 3).Value = malevet
Cells(76, 4).Value = maleno
Cells(77, 2).Value = femaleyes
Cells(77, 3).Value = femalevet
Cells(77, 4).Value = femaleno
Cells(78, 2).Value = intersexyes
Cells(78, 3).Value = intersexvet
Cells(78, 4).Value = intersexno
Cells(79, 2).Value = otheryes
Cells(79, 3).Value = othervet
Cells(79, 4).Value = otherno
Cells(80, 2).Value = prefyes
Cells(80, 3).Value = prefvet
Cells(80, 4).Value = prefno


End Sub

Linked Post: http://www.mrexcel.com/forum/excel-q...ml#post3814373