Run-time Error "13" - File Type Mismatch
 

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.

Run-time Error "13" - File Type Mismatch
 

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

for example

3 + " "

would cause that error

--
Regards,
Tom Ogilvy



"brentm" wrote in message
...
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.