VB Script HELP!!

[mONk.]

OK.. So I'm terrible at everything. The same goes for VB Scripting. I am an absolute newbie to this stuff. Basically I am trying to write a macro to hook two files together for Excel. One File has a check box which shows the status of a job. The other Excel file is a compiled list of all jobs from the other file which have been ticked off (using the checkbox) to notify the user the job has been completed..

Firstly, I have done my best to write something that does this. It works, however its specific to one checkbox and therefore one job. I have thousands of checkboxes. How can I write a general code so that if a particular checkbox is ticked, the relevant information is copied.

Sub Macro7()

Range("A5").Select
Selection.Copy
Windows("archive.xls").Activate
Range("A5109").Select
ActiveSheet.Paste
Windows("Compactus Storage Documents.xls").Activate
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("archive.xls").Activate
Range("B5109").Select
ActiveSheet.Paste
Range("B5109,A5109:C5109").Select
Range("A5109").Activate
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Windows("Compactus Storage Documents.xls").Activate
End Sub

[chemicalNova]

Control Arrays.

chem

[mONk.]

Originally Posted by chemicalNova

Control Arrays.

chem

Looking it to it.

Thanks Pro.