I have an Excel spreadsheet containing a lot of textboxes. I want to extract the values in these textboxes and get them into the cells in the spreadsheet. I've tried to write a macro but it halts on the
Activecell = ActiveSheet.Shapes... line and I cannot find out what's wrong.
Dim Teller As Integer
For i = 116 To 228
ActiveSheet.Shapes("Rectangle " & i & "").Select
Activecell = ActiveSheet.Shapes("Rectangle " & i & "").Value
Teller = Teller + 1
If Teller = 4 Then
Teller = 0
Can anyone help?