Ahoj, mám dotaz jestli někdo nebude vědět nějaké hezké řešení, číslo 12 v tomto kusu kódu potřebuji měnit až na 42 a tak jsem tedy upravil na viz níže:'If TextBox12 <> "" Then'hodnota12 = TextBox12.Value'List1.Copy after:=Sheets(1)'ActiveSheet.Name = hodnota12'ActiveSheet.Move after:=Worksheets(Worksheets.Count)'ActiveSheet.Unprotect'Cells(2, 3) = hodnota12'Cells(15, 2) = hodnota12'ActiveSheet.Protect'End If'******************************************************************For i = 12 To 42 Dim TextBox As String TextBox = "TextBox" & i If TextBox <> "" Then Hodnota = TextBox.Value List1.Copy after:=Sheets(1) ActiveSheet.Name = Hodnota ActiveSheet.Move after:=Worksheets(Worksheets.Count) ActiveSheet.Unprotect Cells(2, 3) = Hodnota Cells(15, 2) = Hodnota ActiveSheet.Protect End IfNext iBohužel mi to píše na řádku viz níže neplatný kvalifikátor.Hodnota = TextBox.Value Jak jinak přířadit x TextBoxům pořadové číslo než spojováním řetězců ? Když jsem pro kontrolu dal MsgBox tak proměnná TextBox obsahuje hodnotu TextBox12 ale bohužel v kódu to nefunguje.