Yeah I changed
Dim sht as worksheets to
Dim sht as worksheet
Now atleast I don't get the error but still it does not perform the
following actions on all the worksheets. here is the code that i am
working with. Please help!!
Sub tryabc()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
Range("I1").Select
ActiveCell.FormulaR1C1 = "Status"
Next sh
End Sub
Thanks,
Jay
--
sa02000
------------------------------------------------------------------------
sa02000's Profile:
http://www.excelforum.com/member.php...o&userid=27747
View this thread:
http://www.excelforum.com/showthread...hreadid=475119