Ok, so now I'm having a new problem, it runs fine on one computer, but when I move it to the server (Where the original code was pulled from) I'm getting a
Run-time error '13': Type Mismatch
on the line 
For i = LBound(ar) To UBound(ar)