That worked perfectly! Making it even better, can I make it so the workbook names can be referenced in column F too, so I do not need to go into VBA and type each workbook name anytime there is an update and can just do so in column F?
Sub Workbook_TBData()
Dim wbNames, i As Long
Const ws As String = "Trial Balance"
wbNames = "Range("F" & i + 2).Value"
For i = 0 To UBound(wbNames)
Cells(i + 2, 2).Formula = "=sum('" & Range("G" & i + 2).Value & "[" & wbNames(i) & "]" & ws & "'!c:c)/2"
Next
Range("B2:B9").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub
Bookmarks