Donnie,
Well from off the top of my head, I would say that the cell you
are picking the .Value from cannot be converted to a Single.
Find out what is in the cell and/or change CSng to Val as a test.
Jim Cone
San Francisco, USA


"Donnie Fuqua" wrote in message
link.net...
Can someone tell me, off the top of their head, why line 4 throws a type
mismatch error?
Note that the line numbers did not appear in the actual program code. Any
help is much
appreciated.

1 Dim sngValue As Single
2 For lngPattern = 1 To lngPatterns
3 For lngInput = 1 To lngInputs
4 sngValue = CSng(rngInputs.Offset(CVar(lngPattern - 1),
CVar(lngInput - 1)).Value)
5 FNet.SetInput lngPattern - 1, lngInput - 1, sngValue
6 Next lngInput
7 For lngOutput = 1 To lngOutputs
8 sngValue = CSng(rngOutputs.Offset(CVar(lngPattern - 1),
CVar(lngOutput - 1)).Value)
9 FNet.SetOutput lngPattern - 1, lngOutput - 1, sngValue
10 Next lngOutput
11 Next lngPattern

Donnie Fuqua