Run time error: Type mismatch

Hi, I created a toolbar with an 'Update' button on it. The update button takes values from sheet 1, does calculations and puts it in sheet two. Here is my code:

Please Login or Register  to view this content.

The run time error occurs at the line: cell1 = cellChange.Text

If I take out the line: Worksheets("Sheet1").Activate, I don't get the error anymore but then it doesn't update the sheet from sheet one, only from sheet two, doesn't matter what I do.

The other thing that I also noticed is that the error also only occur when a fraction value is encountered at sheet 1. With normal integer values, it works fine.

Please help me to understand what the problem is!