Nee, deze pakt de hele selectie, dus dat wat je overgezet hebt.
Wil je enkel kolom A op Getal zetten, plaats dan
Range("A:A").select
vóór de lijn Selection.NumberFormat = "0"
Dus:
..........
Selection.Hyperlinks.Delete
Selection.HorizontalAlignment = xlRight
Range("A:A").Select
Selection.NumberFormat = "0"
End Sub
SoftAid