I am trying to select data from a school data base. What I do is enter the school’s ID number, then have the find function finding the school ID then highlight the data cells I need. The code is below.

ActiveCell.Select
ActiveCell.FormulaR1C1 = "400560010260000"
ActiveCell.Offset(1, 0).Range("A1").Select
Windows("school08.xlsm").Activate
Cells.Find(What:="400560010260000", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 5).Range("A1:B1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.Select
End Sub


The problem is the areas in bold. What I cannot do is figure out how to enter in separate school ID numbers because the macro has already embedded in it the original data in the copy function which I used to enter into the find function. What I need to do is enter in some sort of variable in the first bold section, and have the data in the variable be used in the find function in the second bold area. I need to declare a variable, and maybe use an array with all of the school ID’s I’m looking for, then use some sort of Loop statement so that the actions of cell find and select cells can be run with each new data in the array. I’m sure this is a quick fix, but I’m not as versed as writing the code yet, so I thought I would ask for assistance. Any ideas?