Hi
how is TotalCell defined?
In addition: no need to select. The following statement would be
sufficient:
worksheets("Sheet1").Range("A1").formulaR1C1=total

--
Regards
Frank Kabel
Frankfurt, Germany

"Mohan" schrieb im Newsbeitrag
...
I have a workbook in which there are multiple worksheets.
I am validating the cells in a worksheet and populating
the results in another worksheet and like wise I populate
the results in others wrksheets based on the results from
the validation of the cells in a worksheet.

I get the following error "Runime Error 1004 Method Range
of Object Global Failed"

My code where I get this error is

Sheets("Sheet1").Select
Range(TotalCell).Select
ActiveCell.FormulaR1C1 = Total