How to add same text to all sheets in excel in a macro

[almst791]

Hey guys, I have some text Id like to add to the same cells in all my sheets in my report. Sheet names will change constantly is there any macros around this. I want to add text in these cells in excel. D68:D83.

Non-Reimbursable

Airfare/Baggage Fees

Fuel/Taxi/Other Transport

Lunch-Employee only

Parking/Tolls

Mileage Reimburse

Dinner-Employee only

Miscellaneous

Breakfast-Employee only

Rental Car

Lodging

Business Meals w/MCK Staff

Entertainment Events

Hotel (to be itemized)

Meal Exception – Employee Only

Business Meals w/Non MCK Staff

Phone/Internet-Airline/Airport

Gifts-Empl (to be itemized)

Phone/Internet-Lodging

Meeting Room Rent/Audio/Visual

Dues/Memberships/Subscriptions

Registration/Seminars/Training

TradeShow Exp – Mtg Dept Only

Gifts-Customers

Late Fees Non-Reimbursable

<colgroup><col></colgroup><tbody>
</tbody>

Non-Reimbursable

Airfare/Baggage Fees

Fuel/Taxi/Other Transport

Lunch-Employee only

Parking/Tolls

Mileage Reimburse

Dinner-Employee only

Miscellaneous

Breakfast-Employee only

Rental Car

Lodging

Business Meals w/MCK Staff

Entertainment Events

Hotel (to be itemized)

Meal Exception – Employee Only

Business Meals w/Non MCK Staff

Phone/Internet-Airline/Airport

Gifts-Empl (to be itemized)

Phone/Internet-Lodging

Meeting Room Rent/Audio/Visual

Dues/Memberships/Subscriptions

Registration/Seminars/Training

TradeShow Exp – Mtg Dept Only

Gifts-Customers

Late Fees Non-Reimbursable

<colgroup><col></colgroup><tbody>
</tbody>

 

[almst791]

Thank you man I have a lot of studying to do in VBA, this works perfect!

I also have a code that lists out a table of contents for my worksheet... Is there anyway I can combine the if statement to exclude the sheets above into this code. I've been trying but I am stumped with the IF in VBA.

Sub CreateLinksToAllSheets()


Dim sh As Worksheet
Dim cell As Range
For Each sh In ActiveWorkbook.Worksheets
If ActiveSheet.Name <> sh.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
ActiveCell.Offset(1, 0).Select
End If
Next sh
End Sub

 

[Joe4]

Just replace this line here:

[COLOR=#333333]If ActiveSheet.Name <> sh.Name Then
[/COLOR]

with the other IF line I showed you (once you adjust the object name from "ws" to "sh" to reflect how you are looping through the sheet, i.e.

[COLOR=#333333]If (sh.Name <> "Data") And (sh.Name <> "Cost Center") And (sh.Name <> "Cost Center Macro") Then[/COLOR]