I am having to get counts of certain strings that exist on a worksheet - it started out as one, but it is now at 3, and I foresee it growing to a few more in the near future.

Instead of me just duplicating the same syntax repeatedly to get the counts like the below - is there a way to write this and scan from an array?
Dim iIgnore As Long, iIgnore1 As Long, iIgnore2 As Long
Dim ws1 As String, ws2 As String

Set ws1 = "Parent"
Set ws2 = "Child"

iIgnore = Evaluate("COUNTIFS('" & ws2 & "'!A:A,'" & ws1 & "'!A" & i & ",'" & ws2 & "'!B:B, ""Red"")")
iIgnore1 = Evaluate("COUNTIFS('" & ws2 & "'!A:A,'" & ws1 & "'!A" & i & ",'" & ws2 & "'!B:B, ""Pink"")")
iIgnore2 = Evaluate("COUNTIFS('" & ws2 & "'!A:A,'" & ws1 & "'!A" & i & ",'" & ws2 & "'!B:B, ""Orange"")")