This is the code
Sub LoopThruBooks1()
Dim p, f, s, a, r, a1, a2, a3, a4, a5
p = ThisWorkbook.path & "\All Quotes\"
f = Dir(p & "*.xls*")
s = "Enter Info for Quote"
a = "C18"
a1 = "C3"
a2 = "C13"
a3 = "C19"
a4 = "C29"
r = 1 'The row is starts on (binary)0...