Hi,

My VBA application is writing to a Office XP Excel sheet. However, if I click on the cells during the writing process there is an error thrown at the point of the .Cells().value:

'Row is some row number
  With Worksheets("Sheet_I_am_writing_too")
          .Cells(Row, 1).value = 'some value
  End With

This error is Application-defined or object-defined error. It appears that excel loses its cell position. Once the function is recalled Excel is able to continue without an error.

Does anyone know what causes this.

Thanks in advance.

try this

Dim shtSheetToWork as worksheer
set shtSheetToWork =ActiveWorkbook.Sheets("Sheet_I_am_writing_too")
shtSheetToWork.Cells(Row, 1).value = 'some value
set shtSheetToWork =nothing