como formatear rango con macro?

[dvd]

Tengo un prgrama que envia datos a excel. Finalmente tengo una matriz de datos que puede ser de a1:b20 por ejemplo
o b3:g30, es decir la matriz de datos no siempre es la misma, como puedo crear una macro que formatee el rango poniendole borde a cada celda del rango.
gracias por su ayuda

 

[phantom1975]

Perdoname pero mi espanol es muy malo.

Si tienes este:

Book1
	A	B	C	D	E	F
1
2		36657	36657	36657	36657
3		36658	36658	36658	36658
4		36659	36659	36659	36659
5		36660	36660	36660	36660
6		36661	36661	36661	36661
7		36662	36662	36662	36662
8
Sheet1

Puedes usar este macro cambiar las celdas. Necesitas selectar las celdas que quieres cambiar:

Sub CambiarPorDatos()
Dim ThisCell As Range
    For Each ThisCell In Range(Selection.Address)
        ThisCell.Value = Format(ThisCell.Value, "ddddd")
    Next ThisCell
End Sub

O este:

Sub CambiarPorDatos()
Dim ThisCell As Range
    For Each ThisCell In Range(Selection.Address)
        ThisCell.NumberFormat = "m/d/yyyy"
    Next ThisCell
End Sub

Book1
	A	B	C	D	E	F
1
2		5/11/2000	5/11/2000	5/11/2000	5/11/2000
3		5/12/2000	5/12/2000	5/12/2000	5/12/2000
4		5/13/2000	5/13/2000	5/13/2000	5/13/2000
5		5/14/2000	5/14/2000	5/14/2000	5/14/2000
6		5/15/2000	5/15/2000	5/15/2000	5/15/2000
7		5/16/2000	5/16/2000	5/16/2000	5/16/2000
8
Sheet1