View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
brentm brentm is offline
external usenet poster
 
Posts: 35
Default 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.