Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA, auxiliado por uma função retorna o TipoValor contido nas células, neste caso,
células vazias, se contém números, se contém datas ou Texto. observe que também inserimos a função como fórmula na célula, que retorna
também o valor contido na célula.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sbx = TipoValor(ActiveCell)
ActiveCell.Offset(0, 2).Value = sbx 'deslocando duas colunas a direita e inserindo o resultado armazenado pela variável (sbx)
End Sub

'Função que retorna o tipo de dados contidos na célula
Private Function TipoValor(Celula As Range) As String

If Celula.Value = "" Then
TipoValor = "Celula Vazia"
ElseIf IsNumeric(Celula.Value) Then
TipoValor = "Contém número"
ElseIf IsDate(Celula.Value) Then
TipoValor = "Contém Data"
Else

TipoValor = "Contém texto"
End If

End Function