Code: Select all
strFile2 = "5. Month " & strMnth & " Daily Walk *.xlsm"
'Get name of actual file
strFile2 = Dir(strPath2 & strFile2)
'Open Daily Walk file
Set wb2 = Workbooks.Open(Filename:=strPath2 & strFile2, Password:=Password1, WriteResPassword:=Password2)
........
'Create Formulas - "Detail" data rows
arrList = Array(0, 31, 62, 93, 124, 155, 190)
i = wb2.Sheets("Detail").Range("B31").End(xlUp).Row
For Each n In arrList
wb2.Sheets("Detail").Range("B" & (i + n) & ":IV" & (i + n)).Copy Destination:=wb2.Sheets("Detail").Range("B" & (i + n + 1) & ":IV" & (i + n + 1))
Next n
Calculate
I am slowly beginning to detest xlsm.