Tratamiento de una celda seleccionada en MACRO

Buenas tardes amigos

Nunca he realizado una macro que parta de una selección y una vez leido
muchos de estos post, tengo la idea de como hacerlo, sin embargo tengo
una duda.

Normalmente para convertir algo numero hago una función con 1 paremetro
y luego al paremetro lo intento convertir con "resultado =
cdbl(parametro" ahora quiero expandir esto para que sea un
procedimiento que tome una seleccion de entrada.

les pongo el codigo de la macro que pretendo "convierta las celdas
seleccionadas a numeros"
=Sub canumeros()
Dim claves As Range, tabla As Range, c As Range

mensaje1 = "Esto va a hacer un desastre. Deseas continuar ?"
Respuesta = MsgBox(Prompt:=mensaje1, Title:="Sólo Unicos ", Buttons:e)
If Respuesta = 2 Then Exit Sub

Set claves = Selection
Set tabla = Selection.CurrentRegion

For Each c In claves
QUE PONGO AQUI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :D

Next c

MsgBox Prompt:="Se ha hecho el desastre", Title:="Desastre", Buttons:=0

End Sub
==Gracias y saludos