エラーコード'9'の解消方法を教えてください。以下のIf (WorksheetFunction.CountIfの部分です。

Sub Downloaded()

    n = Cells(Rows.Count, "F").End(xlUp).Row
    Dim i

    For i = 2 To n

        If Range("o" & i) = 0 Then
            Range("a" & i).Value = ""
        Else
            Range("a" & i).Value = Range("o" & i).Value
        End If

        ' 下記のIf文に対してエラーが表示される
        If (WorksheetFunction.CountIf(Worksheets(Unsubscribers), Range("A:A").Value) = 0) Then
            Range("b2").Value = "Subscribed"
        Else
            Range("b2").Value = "Unsubscribed"
        End If

    Next

End Sub