I have written a simple VBA script (code below) that should inspect every cell in a certain column. Here I want to do some string manipulation ( i wante to search for "." in the string and then take the right side, but because I could not get it to work I always take the 4 digit as a start). I then copy the manipulated string into another cell and later back. The code works, but for some reason, it takes ages to run on only 35 cells!

I´m still a kook on VBA and wanted to get input what could be the reason for it and what I could improve to get a faster runtime. Is it because I take all strings froms 4 up to 50 ?

```vb
Sub EditStatus()
    Application.DisplayAlerts = False
    ActiveSheet.Name = "Backend"
    myNum = Application.InputBox("Please enter the row number until which you would like to update the status column (only for new entries)")
        For i = 2 To myNum
            Cells(i, 20).Value = Mid(Cells(i, 10), 4, 50)
            Cells(i, 10).Value = Cells(i, 20).Value
        Next i
    Range("T1:T200").Clear
    Application.DisplayAlerts = True
End Sub

```

Thanks