tabu = Application.WorksheetFunction.Find("AUD", curve.Offset(N, 0)) For i = 0 To 29 If Left(curve.Offset(i + N + 2, 0), 7) = "FUTURES" Or Left(curve.Offset(i + N + 2, 0), 5) = "SWAPS" Then Exit For Else If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " " Then AUDBBR3M(i) = 0 Else AUDBBR3M(i) = CLng(Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13)) Next i End If Set curve = .Find("AUD/BSAUD", LookIn:=xlValues) tabu = Application.WorksheetFunction.Find("TOTAL", curve.Offset(N, 0)) For i = 0 To 29 If Left(curve.Offset(i + N + 2, 0), 7) = "FUTURES" Or Left(curve.Offset(i + N + 2, 0), 5) = "SWAPS" Then Exit For Else If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " " Then AUDBSAUD(i) = 0 Else AUDBSAUD(i) = CLng(Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13)) Next i i = 0 For Each cell In Workbooks(book).Worksheets(shet).Range("AUDBBR3M") cell.Value = AUDBBR3M(i) + AUDBSAUD(i) i = i + 1 Next cell Set curve = .Find("AUD/BBR6M", LookIn:=xlValues) tabu = Application.WorksheetFunction.Find("AUD", curve.Offset(N, 0)) For i = 0 To 29 If Left(curve.Offset(i + N + 2, 0), 7) = "FUTURES" Or Left(curve.Offset(i + N + 2, 0), 5) = "SWAPS" Then Exit For Else If Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13) = " " Then AUDBBR6M(i) = 0 Else AUDBBR6M(i) = CLng(Mid(curve.Offset(i + N + 2, 0), tabu - 1, 13)) Next i i = 0 For Each cell In Workbooks(book).Worksheets(shet).Range("AUDBBR6M") cell.Value = AUDBBR6M(i) i = i + 1 Next cell i = 0 For Each cell In Workbooks(book).Worksheets("P&L").Range("basis36aud")