Guru do Excel e Power BI

Private Sub UserForm_Initialize()
    
    Dim Plan As Worksheet
    Dim Tabela As ListObject
    'Dim ULinha As Long
    
    Set Plan = Wsh_Config
    Set Tabela = Plan.ListObjects("TB_Config")
    
    On Error Resume Next
    
    Application.ScreenUpdating = False
    
    cbx_Mes.RowSource = Tabela.ListColumns("Mes").DataBodyRange
    cbx_Ano.RowSource = Tabela.ListColumns("Ano").DataBodyRange
    
    Application.ScreenUpdating = True
    
    Set Tabela = Nothing
    Set Plan = Nothing
    
End Sub

Private Sub UserForm_Initialize()
    Dim Plan As Worksheet
    Dim Tabela As ListObject
    'Dim ULinha As Long
   
    Set Plan = Wsh_Config
    Set Tabela = Plan.ListObjects("TB_Config")
   
    On Error Resume Next
   
    Application.ScreenUpdating = False
   
    cbx_Mes.List = Tabela.ListColumns("Mes").DataBodyRange.Value
    cbx_Ano.List = Tabela.ListColumns("Ano").DataBodyRange.Value
   
    Application.ScreenUpdating = True
   
    Set Tabela = Nothing
    Set Plan = Nothing
End Sub