Makro excel

se på de sidste to indlæg i
http://stackoverflow.com/questions/17955030/how-do-you-select-the-entire-excel-sheet-with-range-using-macro-in-vba
om ikke en af dem kan bruges hos dig.

er lidt volapyk for mig

Det du søger - er det at overføre formatet fra A2 til resten af et vilkårligt ark (arkfaner i samme fil)?

Stil dig i A2, tryk:
ctrl + *
altså ctrl plus stjerne

Ja skal bare markere de celler der hører til regnearket, når jeg laver en makro husker den et bestemt område...og det kan jo ændre sig

Det, du er på udkig efter, er disse to kode linjer:

Range("A2").AutoFill Destination:=Range("A2:A" & ActiveSheet.UsedRange.Rows.Count), Type:=xlFillFormats

Range("A2:A" & ActiveSheet.UsedRange.Rows.Count).AutoFill Destination:=Range("A2:Q" & ActiveSheet.UsedRange.Rows.Count), Type:=xlFillFormats

De to kode linjer skal stå lige efter hinanden.

Bemærk, at jeg forstod på dit spørgsmål, at det kun var formatet fra celle A2, du ville kopierer - ovenstående to kode linjer vil IKKE kopiere eventuelt indhold og/eller formler i celle A2, men KUN formatet.

Hvis du ønsker, at kopiere celle indholdet fra celle A2 med også, skal du udskift Type til xlFillDefault