Change Cell Value to create Summary Sheet

This may be very simple, but I'm new to macros and excel. I'm trying to figure out how to creat a macro that changes the cell location in the following formula from B9 to B10 and then moves down one cell and does the same, one hundred times...

The first cell shows ='Guest 1'!$B$9 and it should read ='Guest 1'$B$10
The next cell down shows ='Guest 2'!$B$9 and it should read ='Guest 2'$B$10

The bigger picture is that I have an Excel file with one months worth of check-in sheets at our hotel (100 sheets) and I'm trying to make summary pages that display a guests information horizontally. I've already edited one column so that each cell shows the guest's names all the way down. But I would like a quicker way to drag the formulas over and then quickly switch all of the cell references. We'll see if anybody followed that. Thanks for any help you may offer.

Hi Vientotambo,

There's probably an easier way but:

Sub ChangeForm()
Dim F, S As String, I As Integer, J As Integer
F = ActiveCell.Formula: S = CStr(F)
For I = Len(S) To Len(S) - 5 Step -1
If Not IsNumeric(Mid(S, I, 1)) Then
Exit For: End If: Next I
J = Val(Right(S, Len(S) - I)): J = J + 1
S = Left(S, I) & J
ActiveCell = S: End Sub

Copy the code to the clipboard
Press ALT + F11 to open the Visual Basic Editor.
Select Module from the Insert menu
Type "Option Explicit" then paste the code into the white space under it.
Press ALT + Q to close the code window.
with the cell you want to change selected
Press ALT + F8 then double click on ChangeForm

If you want to run the whole column:

Sub ChangeForm()
Dim F, S As String, I As Integer, J As Integer
If ActiveCell = "" Then Exit Sub
F = ActiveCell.Formula: S = CStr(F)
For I = Len(S) To Len(S) - 5 Step -1
If Not IsNumeric(Mid(S, I, 1)) Then
Exit For: End If: Next I
J = Val(Right(S, Len(S) - I)): J = J + 1
S = Left(S, I) & J
ActiveCell = S
ActiveCell.Offset(1, 0).Select
ChangeForm
End Sub

Hi and welcome to the forum

We would love to help you with your question, but 1st, in accordance with forum rule, please rename your thread to something more meaningful, that actually describes your problem.

Because thread titles are used in searching the forum it is vital they be written to accurately describe your thread content or overall objective using ONLY search friendly key words. That is, your title used as search terms would return relevant results.

Also, many members will look at a thread title, and if it is of interest to them, or it falls within their area of expertese, they might only open those threads.

Look at it this way...if you typed that title into google, what would you expect to get back?
To change a Title on your post, click EDIT on you're 1st post, then Go Advanced and change your title