macro to loop thru sheets and add info

  • Thread starter Thread starter Tommy
  • Start date Start date
T

Tommy

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.
 
Try the below

Sub Macro()
For Each ws In Worksheets
ws.Rows(1).Insert
ws.Range("A1") = "Company name"
Next
End Sub

If this post helps click Yes
 
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
 
Back
Top