Need to add extra room to conference room xls

This is an xl 2010 doc running in 2003 compatibility mode, I believe due to a macro that was created in 2003. I have an xl workbook with the sheets reflecting each month of 2014 and for each day of the year on each sheet, I am listing our conference rooms to schedule reservations. I need to add a room, named 18 East to each day of the year. It must be located two cells below the extention number of room 18 Central, so for instance on January 1, I will need the words "18 East" (without the quotes) to be in cell A23 and for January 2, I will need the same thing in cell A64 etc. for each day of the year. All sheets are formatted so that the words 18 East will always be two cells below the extension of 18 Central (4152).

Thanks,
Conference-Rooms-2014.xls
contrainAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Saqib Husain, SyedEngineerCommented:
I have modified your existing macro according to this question. You will have to change the newnumber to whatever it should be before running the macro.

Sub AddConferenceRoom()
 
Dim ws As Worksheet
Dim cell, rng As Range
Dim LastRoom, NewRoom, NewNumber As String
 
    Application.ScreenUpdating = False
 
        Set rng = [A1:A5000]
        LastRoom = "18 Central"
        NewRoom = "18 East"
        NewNumber = "'(1234)"
        For Each ws In ThisWorkbook.Worksheets
        ws.Select
            For Each cell In ws.Range("A1:A5000")
                If cell = LastRoom Then
                cell.Select
                    cell.Offset(3, 0).Value = NewRoom
                    cell.Offset(4, 0).Value = NewNumber
                    Else
                End If
            Next cell
        Next ws
    Application.ScreenUpdating = False
       
End Sub
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
contrainAuthor Commented:
YES!!!!!!! This is exactly what I needed and worked perfectly. The Expert was able to solve my issue with the information and in all of the correct places. Fantastic solution!!!!!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.