Guru do Excel e Power BI

Private Sub cep_Exit(ByVal Cancel As MSForms.ReturnBoolean)

lsPesquisaCEP (cep.Value)

logradouro.Value = UCase(Sheets("TEMP").Range("G1"))
bairro.Value = UCase(Sheets("TEMP").Range("E1"))
cidade.Value = UCase(Sheets("TEMP").Range("D1"))
uf.Value = UCase(Sheets("TEMP").Range("C1"))

End Sub

Sub lsPesquisaCEP(ByVal sCEP As String)
    On Error GoTo TratarErro
    
    Range("TEMP!$A$1:$H$1").Clear
    
    If sCEP <> "" Then
        With ActiveWorkbook.XmlMaps("webservicecep_Mapa")
            .ShowImportExportValidationErrors = False
            .AdjustColumnWidth = True
            .PreserveColumnFilter = False
            .PreserveNumberFormatting = False
            .AppendOnImport = False
        End With
        ActiveWorkbook.XmlImport URL:= _
            "http://republicavirtual.com.br/web_cep.php?cep=" & sCEP, ImportMap:= _
            Nothing, Overwrite:=False, Destination:=Range("TEMP!$A$1")
            
            
            
    End If
        
    Calculate
    
Sair:
    Exit Sub
TratarErro:
    MsgBox "CEP não cadastrado!"
    GoTo Sair
    Resume
End Sub