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.

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" <[email protected]> wrote in message
news:[email protected]...
> 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.