Sorry for the incomplete message (there is some Ctrl key sequence nearby to
the Ctrl+V keystroke I tried to use that I occasionally hit by accident
which sends the document). Here is the code that I tried send...

Sub InsertCompanyName()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Rows(1).Insert xlShiftDown
WS.Range("A1") = "The Company Name"
Next
End Sub

--
Rick (MVP - Excel)


"Rick Rothstein" wrote in message
...
This should do what you want (change the text for the company name
though)...


--
Rick (MVP - Excel)


"Tommy" wrote in message
...
Want to create a macro/vba to make a stop in every worksheet of the open
workbook and insert company name in A1 (of course, insert a row in A1
first),
then go to the next sheet and do the same. Some of my files have 2
worksheets, some have 8, some have 25. Need to make sure macro works
regardless of the number of worksheets in a workbooks. Thanks.