Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to loop thru sheets and add info
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to loop thru sheets and add info
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 --------------- Jacob Skaria "Tommy" wrote: 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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to loop thru sheets and add info
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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to loop thru sheets and add info
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro doesn't loop through sheets of books in specific folder | Excel Programming | |||
Loop thru some sheets in wkbk and call macro - better way? | Excel Programming | |||
Loop to Filter, Name Sheets. If Blank, Exit Loop | Excel Programming | |||
apply Macro to all sheets in workbook - loop | Excel Programming | |||
Macro to loop thru sheets & return to a1 cell | Excel Programming |