运行时错误13：types不匹配的情况下

我有一个问题运行一些相对基本的“案例”代码。 当select正确的大小写并且正在执行动作时，我总是收到“运行时错误”13“types不匹配”。 在这种情况下，我有我的分数值作为单元格A6，它存储为文本。 数据是通过我们使用的另一个报告工具来完成的，因此我无法修改单元格值的格式。 它将不得不保持为文本。 当前值是“五月”，所以代码运行通过不同的情况下，正确地select“可能”的情况下，但不会执行这种情况下的行动。 任何想法如何纠正这个运行时错误？ 我已经尝试了各种不同的数据types的声明，但似乎没有任何工作。 谢谢！

Dim score As Variant score = Range("KPI!A6").Value Select Case score Case "January" Columns("D:N").EntireColumn.Hidden = True Case score = "February" Columns("C:C,E:N").EntireColumn.Hidden = True Case "March" Columns("C:D,F:N").EntireColumn.Hidden = True Case "April" Columns("C:E,G:N").EntireColumn.Hidden = True Case "May" Columns("C:F,H:N").EntireColumn.Hidden = True Case "June" Columns("C:G,I:N").EntireColumn.Hidden = True Case "July" Columns("C:H,J:N").EntireColumn.Hidden = True Case "August" Columns("C:I,K:N").EntireColumn.Hidden = True Case "September" Columns("C:J,L:N").EntireColumn.Hidden = True Case "October" Columns("C:K,M:N").EntireColumn.Hidden = True Case "November" Columns("C:L,N:N").EntireColumn.Hidden = True Case "December" Columns("C:M").EntireColumn.Hidden = True End Select