Private Sub CommandButton1_Click()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If Left(WS.Name, 3) = "A3C" Then
WS.Range("A1") = TextBox1
End If
Next WS
End Sub
Zelle A1 ist fix, weil keine Ahnung nach welchem Kriterium die "nicht gleiche Position" ermittelt wird.