Private Sub Workbook_Open()
F1 = "Fluxo de Caixa"
With Sheets(F1)
ActiveWorkbook.Names.Add Name:="Descrições_Entradas", RefersToR1C1:="='" & F1 & "'!R2C12:R" & .Cells(65536, 12).End(xlUp).Row & "C12"
ActiveWorkbook.Names.Add Name:="Categorias_Entradas", RefersToR1C1:="='" & F1 & "'!R2C13:R" & .Cells(65536, 13).End(xlUp).Row & "C13"
ActiveWorkbook.Names.Add Name:="Descrições_Saidas", RefersToR1C1:="='" & F1 & "'!R2C22:R" & .Cells(65536, 22).End(xlUp).Row & "C22"
ActiveWorkbook.Names.Add Name:="Categorias_Saidas", RefersToR1C1:="='" & F1 & "'!R2C23:R" & .Cells(65536, 23).End(xlUp).Row & "C23"
End With
F2 = "CIC"
With Sheets(F2)
ActiveWorkbook.Names.Add Name:="Descrição_CIC", RefersToR1C1:="=" & F2 & "!R2C12:R" & .Cells(65536, 12).End(xlUp).Row & "C12"
End With
F3 = "Poupança Real 1"
With Sheets(F3)
ActiveWorkbook.Names.Add Name:="Descrição_Poupança_1_Real", RefersToR1C1:="='" & F3 & "'!R2C13:R" & .Cells(65536, 13).End(xlUp).Row & "C13"
End With
F4 = "Conta Corrente BR"
With Sheets(F4)
ActiveWorkbook.Names.Add Name:="Descrições_Conta_Corrente_Real_BR", RefersToR1C1:="='" & F4 & "'!R2C13:R" & .Cells(65536, 13).End(xlUp).Row & "C13"
ActiveWorkbook.Names.Add Name:="Entradas_Conta_Corrente_Real_BR", RefersToR1C1:="='" & F4 & "'!R2C14:R" & .Cells(65536, 14).End(xlUp).Row & "C14"
ActiveWorkbook.Names.Add Name:="Saidas_Conta_Corrente_Real_BR", RefersToR1C1:="='" & F4 & "'!R2C15:R" & .Cells(65536, 15).End(xlUp).Row & "C15"
End With
End Sub