Setting tab order, adding ability to stop/start code and refine functionality

[MSXL]

Thought this might be a partial solution but it didn't make any difference:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Module1.strAddress = Target.Address
    If Not IsEmpty(Target.Address) Then
    Target.Copy
    End If
End Sub