Consegui resolver. Como sou novo com funções eu não sabia que precisava definir o resultado final no nome da Função. Function CNullToStr(Variável)...

tente o mesmo código com uma pequena alteração (-1) Sub Exclui() 'Excluir linhas ocultas TotalRegistroRelatório = ThisWorkbook.ActiveSheet&#...

Infelizmente não deu certo.

Consegui resolver com o evento KeyPress Private Sub Telefone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Len(Telefone) = 1 Then ...

Boa tarde!! Tente assim.. Sub AleVBA_17920V2() Dim bFileSaveAs As Boolean bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show ...

Boa tarde!! Tente isso.. Código: Selecionar todos Sub AleVBA_17920() Dim i As Integer Dim Filname As String Dim sName As...

Obrigado pela ajuda. E perdoe-me por não ter postado uma planilha teste. Sou novo aqui no Fórum. Mas então, consegui resolver meu problema da seguinte...

Segue arquivo com os dados importados bagunçados.