Boa noite...
Teria como, ao clicar em "Salvar", limpar todo os campos do formulário, inclusive os Combobox?
Tenho o seguinte código:

Private Sub cancelar_Click()
Unload Me
End Sub

Private Sub limpar_Click()
Call UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
'Limpando os campos
nome.Value = ""
cpf.Value = ""
acao.Value = ""
data.Value = ""

'Abrindo as opções do combo
With cidade
    .AddItem "Apucarana"
    .AddItem "Curitiba"
    .AddItem "Maringá"
    .AddItem "T. Borba"
    .AddItem "S.S. Amoreira"
End With

With setor
    .AddItem "ADM"
    .AddItem "MPJ"
    .AddItem "Novos"
End With

'Configuração para manter o cursor de edição ativo no campo NOME
nome.SetFocus

End Sub

Private Sub salvar_Click()

'Cria a variavel linhavazia
Dim linhavazia As Long

'Confere se o campo nome foi preenchido
If nome.Value = "" Then
MsgBox ("Nome Obrigatório!!")
nome.SetFocus
Exit Sub
Else
End If

'seleciona a aba "dados"
Sheets("DB").Select

'conta quantas informações foram inseridas na coluna A da aba dados
linhavazia = WorksheetFunction.CountA(Range("A:A")) + 1

'Insere informações da aba dados
Cells(linhavazia, 1).Value = setor.Value
Cells(linhavazia, 2).Value = nome.Value
Cells(linhavazia, 3).Value = cpf.Value
Cells(linhavazia, 4).Value = cidade.Value
Cells(linhavazia, 5).Value = acao.Value
Cells(linhavazia, 6).Value = data.Value

'Avisa que informações foi inserida com sucesso
MsgBox ("Cliente Cadastrado com Sucesso!!")

'Volta para a aba MENU
Sheets("Formulario").Select
End Sub