The following code copies two characters from a string in worksheet 1
and places them in a column to the right of where the string is. How would
I write this code
so I can place the code in worksheet 2 and it will get the characters from
worksheet 1 and put them in a column in worksheet 2?

Sub GetString()
Dim MyString As String
Dim Pick As String

Cells(1, 1).Select
Do While ActiveCell.Value < ""
MyString = ActiveCell
Pick = Mid(MyString, 2858, 2)


ActiveCell.Offset(0, 112) = Pick
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Thanks,
Les