Dar formato de tabla mediante macro

[maialenlopez]

Ya he conseguido lo que necesitaba utilizando lo siguiente:

Código VBA:

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$10"), , xlYes).Name= "Table1"
 
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium2"
 

Lo dejo aquí por si a alguien le surge la misma duda que a mi.

Gracias a todos.

Saludos