I solved the problem, by making a fake column, which converted the string in column H into another string in column AE- which was able to be filtered!
=IF(H3="";"(1)(2)(3)(4)(5)(6)(7)(8)(9)(10)(11)(12)";IF(H3="Pause";"";IF(H3="Even months";"(2)(4)(6)(8)(10)(12)";HVIS(H3="Uneven months";"(1)(3)(5)(7)(9)(11)";BATHTEXT("(";REPLACE(H3;"-";")(");")")))))
and then include these codes in VBA:
If Months = "January" Then month = 1
If Months = "Febuary" Then month = 2
'etc
.Range("A:ae").AutoFilter Field:=31, Criteria1:=Array("*(" & month & ")*"), Operator:=xlFilterValues
end with
Thank you for your time!!!
Bookmarks