Loop Through Worksheets Find Value And Paste In Summary Worksheet

I have 12 Workbooks (each for every month) name Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec

These workbooks contains something like the following

Name
Days of Vacation
Something Else#1
Something else#2
Something else #3

[Code] .....

I want something to loop through the months and copy all rows for mary in a summary sheets and sum the Days of Vacation from Column B.

Note that The first Workbook has some data, the 2nd Workbook is the Jan and the 13 Workbook is the Dec, the 14t is the Summary Workbook

VB:
Sub SearchForString()
Application.Calculation = xlCalculationManual
Dim LSearchRow As Integer
Dim LCopyToRow As Integer
LCopyToRow = 2

[Code] .....