Select case problem Excel 2010

[Jaye7]

I use the following script in Excel 2000 and it works perfectly, for some reason in Excel 2010 version it bugs out at the case "DB", "" line, it says type mismatch.

Can anyone help to fix this as it is an important piece of code and there are another four pieces of code similar, so if it won't work for this one then it probably won't work for the others.

For i = 2 To Range("Q800").End(xlUp).Row
 If Cells(i, 17).Value > 1 Or IsEmpty(Cells(i, 1)) Then
 
 Select Case Cells(i, 1).Value
     Case "DB", ""
           Cells(i, 4).Value = Cells(i, 9).Value & Cells(i, 10).Value
           Cells(i, 5).Value = Cells(i, 11).Value
           Cells(i, 6).Value = Cells(i, 13).Value
  
End Select
End If
Next

 

[Jaye7]

Anyone???

 

[Sektor]

I tried it in Excel 2007 - no problems. What is stored in column A?

 

[Jaye7]

There are values in column A that can not be moved as other script relies on the data, this is just one small piece of the code.

There must be a difference with select case statements between excel 2000 and excel 2010 version but I can't find any help to fix it.

I have to use another computer just to use the complete script which is annoying, but as the file saves me up to half an hour of my time it is really important to me.