🚀 go-pugleaf

Witam!
Bardzo proszę o pomoc w następującej kwestii. W arkuszu Excela na
początek muszę wstawić 2 tekstboxy do których użytkownik będzie
wpisywał dane. Podczas uaktualniania arkusza chcę pobrać do zmiennej
dane wpisane do textbox-ów, wyczyścić cały arkusz i na nowo wstawić
textbox-y łącznie z poprzednią zawartością. Problem w tym że po
skasowaniu textbox-ów i wstawieniu nowych Excel automatycznie nadaje
nazwy textbox-om. W jaki sposób zmienić nazwę  textbox-ów tak aby
zawsze po wykonaniu procedury miały nazwy TextBox1 i TextBox2?
Po pierwszym uruchomieniu makra TextBoxy nazywają się odpowiednio
TextBox1 i TextBox2
po drugim TextBox3 i TextBox1
po trzecim TextBox2 i TextBox3
po czwartym TextBox1 i TextBox2, .....


Sub weryfikacja()
Dim text1, text2 As String

On Error Resume Next
text1 = Sheets("Arkusz1").OLEObjects("TextBox1").Object.Value
text2 = Sheets("Arkusz1").OLEObjects("TextBox2").Object.Value

Sheets("Arkusz1").OLEObjects("TextBox1").Delete
Sheets("Arkusz1").OLEObjects("TextBox2").Delete
Sheets("Arkusz1").OLEObjects("TextBox3").Delete


Sheets("Arkusz1").OLEObjects.Add ClassType:="Forms.TextBox.1",
Link:=False, _
        DisplayAsIcon:=False, Left:=10.5, Top:=10, Width:=695,
Height:=62
Sheets("Arkusz1").OLEObjects("TextBox1").Object.Value = text1

Sheets("Arkusz1").OLEObjects.Add ClassType:="Forms.TextBox.1",
Link:=False, _
        DisplayAsIcon:=False, Left:=10.5, Top:=100, Width:=695,
Height:=62
Sheets("Arkusz1").OLEObjects("TextBox2").Object.Value = text2

End Sub

Dziękuję i pozdrawiam wszystkich grupowiczów
Diver