I am trying to do same action in all the sheets of an open workbook. I
started with simple code below but it does not work. I get an error
"type mismatch" at
For Each sht In Worksheets
Sub tryabc()
Dim sht As Worksheets
For Each sht In Worksheets
Range("I1").Select
ActiveCell.FormulaR1C1 = "Status"
Next sht
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