Proteção para planilha

[SuperBond]

Bom dia, gostaria de evitar o risco de executar uma macro na planilha errada e alterar dados importantes dessa planilha. Por exemplo, a macro a seguir deve ser somente executada na planilha 1, de nome "começo", pois essa planilha já contem os dados certos nas células certas. Essa macro é só um exemplo, não é para funcionar.

Se por engano ela for executada na planilha 2 ou 3, irá apagar dados das coluna A, B e C e retornar o resultado tambem na coluna indevida.

Gostaria de garantir que a macro seja executada somente na planilha 1. 

'ESTA MACRO FORNCE O COMEÇO
'****** USAR NA PLANILHA "começo" ******
Sub produto_começo()
Dim u As Long, m As Long, j As Long, n As Long, r As Long, t As Long
[A:A].ClearContents
[B:B].ClearContents
[C:C].ClearContents
For m = 1 To Cells(1, 2) 'qt M
 For j = 1 To Cells(2, 2) 'qt N
  For n = 1 To Cells(3, 2) 'qt H
  If Cells(m, 13) = Cells(j, 14) Then
    Cells(u + 2, 16) = FIN: u = u + 1  'coluna J
  End If
  Next n
 Next j
Next m
End Sub

 

[Basole]

 

Faça com que a macro  selecione a aba em questao. Exemplo:

 Sheets("começo").activate

'ESTA MACRO FORNCE O COMEÇO
'****** USAR NA PLANILHA "começo" ******
Sub produto_começo()
Dim u As Long, m As Long, j As Long, n As Long, r As Long, t As Long
Sheets("começo").activate
[A:A].ClearContents
[B:B].ClearContents
[C:C].ClearContents
For m = 1 To Cells(1, 2) 'qt M
 For j = 1 To Cells(2, 2) 'qt N
  For n = 1 To Cells(3, 2) 'qt H
  If Cells(m, 13) = Cells(j, 14) Then
    Cells(u + 2, 16) = FIN: u = u + 1  'coluna J
  End If
  Next n
 Next j
Next m
End Sub