How to copy code from one sheet to another

Try:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name Like "ManagementAccounts*" Then
        'your code goes here
    End If
End Sub