Excel - Copiar Formato de Celdas

Hola de casualidad alguien sabe como copiar el formato de una fila de de excel y establecerlo (El mismo foramto) a otro fila, esto es desde código de Visual Basic. 6.0

Agradezco su atención

Saludos

Es una opción.....
ExcelApp.ActiveSheet.Rows("1:1").Select
ExcelApp.ActiveSheet.Rows("3:3").Select
Selection.PasteSpecial Paste:=xlPasteFormats