How To Copy Data By Worksheet Name

[Admin]

Hi

Put this code in 'Main' sheet module.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Cells.Count > 1 Then Exit Sub
    Select Case Target.Address(0, 0)
        Case "B2", "B7", "D2": kTest
    End Select
    
End Sub