Run-time Error "13" - File Type Mismatch

[Guest]

Greetings all!

I have a spreadsheet that is giving me an error for this line in the code:

Case 2005

'quotes submitted
'If Cells(C1, AmountCol).Value <> "" Then
DataArray05(Month(Cells(C1, BidDateCol).Value), 1) =
DataArray05(Month(Cells(C1, BidDateCol).Value), 1) + Cells(C1,
AmountCol).Value
'End If

I used the same for Case 2004, which works just fine.

Case 2004

'quotes submitted
'If Cells(C1, AmountCol).Value <> "" Then
DataArray04(Month(Cells(C1, BidDateCol).Value), 1) =
DataArray04(Month(Cells(C1, BidDateCol).Value), 1) + Cells(C1,
AmountCol).Value
'End If

Any ideas?

Thanks.

 

[Tom Ogilvy]

I would look at what is in Cells(C1,AmountCol) when you get the error.

for example

3 + " "

would cause that error