Try changing this
fxticker = UCase(Cells(i, 1))
to
If Not IsError(Cells(i, 1)) Then fxticker = UCase(Cells(i, 1))