Couple of things you can try...
If IsNumeric(UserForm1.Spreadsheet1.Cells((Row + 7), Column).Value) Then
'add them up
-or-
Tags.SegParam_3.Value = _
UserForm1.Spreadsheet1.Cells(TempRow, Column).Value + _
Val(UserForm1.Spreadsheet1.Cells((Row + 7), Column).Value)

Also, "Column" and "Row" are properties of the Range object,
so Excel already uses them. You might want to use different names.
--
Jim Cone
Portland, Oregon USA



"Chris H"
wrote in message
I am having trouble where cells that look empty have a space in them.

The watch window in VBA shows the value for
UserForm1.Spreadsheet1.Cells((Row + 7), Column).Value as value: " ", type:
Variant/String
When the cell ((Row + 7), Column has a value of " " the line:

Tags.SegParam_3.Value = UserForm1.Spreadsheet1.Cells(TempRow, Column).Value
+ Trim(UserForm1.Spreadsheet1.Cells((Row + 7), Column).Value)

Causes a <Type mismatch error when it runs. If I do a delete on the cell or
put a number in the cell the code will run fine for a while then the space
finds its way back into the cell and the problems starts again.
I have tried:

Trim(UserForm1.Spreadsheet1.Cells((Row + 7), Column).Value)

CDbl(Trim(UserForm1.Spreadsheet1.Cells((Row + 7), Column).Value))

And a few other things with no joy
I am calling VBA from a program called InteractX by CTC and this happens on
machines using Excel 2003 and 2007
If there is a more appropriate group to post this to please let me know.
Thanks In Advance
Chris