Vergrößern und Verkleinern von Zellen

Private Sub CommandButton1_Click()
Cells.Select
Selection.ColumnWidth = 16
End Sub

Private Sub CommandButton2_Click()
Cells.Select
Selection.ColumnWidth = 4
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With CommandButton1
.Top = ActiveCell.Offset(0, 1).Top
.Left = ActiveCell.Offset(0, 1).Left
End With
With CommandButton2
.Top = ActiveCell.Offset(2, 1).Top
.Left = ActiveCell.Offset(2, 1).Left
Das Problem ist ´das ich ziemlich viele Spalten habe ca 250. und wenn ich diese jetzt vergrößere wandern die Commandbuttons wieder ganz nach vorne, in die Spalte A. Kann man das irgendwie verhindern?
Desweitern will ich wenn man auf ein bestimmtes Feld klickt ein Hyperlink einfügen. Diese neue Seite soll sich aber automatisch generiern. Geht so etwas?????
Ich wäre dankbar für Hilfe
Mfg
Sebastian