copy worksheets from a couple of workbooks to other workbooks

Try this:

Sub Masben(): Dim win As Workbook, wout As Workbook, ws As Worksheet
Set win = Workbooks("Brasil.xlsm"): Set wout = Workbooks("Brasil 2015.xlsm")
    'If the forecast sheet is named "Forecast" and the two books are open
    For Each ws In win.Worksheets
    If ws.Name = "Forecast" Then GoTo GetNext
    With wout
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = ws.Name
    ws.Cells.Copy Worksheets(ws.Name).Range("A1")
    End With
GetNext:    Next
End Sub