Immediate Window
?Selection.Interior.Color
?Selection.borders.Color
?Selection.Interior.Colorindex
?Activecell.FormulaR1C1

Application
b = Application.Trim(Application.Clean(Range(«A1»)))

Lastrow
Lastrow = Ark1.Cells(Rows.count, 1).End(xlUp).Row
Facilit
Import og exsport Økonomi facilit
Test
FileNameChanger.xlsm