¿Cómo puedo ejecutar un código que está una hoja en algunas otras del libro (en 12 hojas de 18 que posee el libro)?

Espero alguien experto me pueda ayudar, tengo este código en una hoja del libro funciona bien sólo en la Hoja : "Dic-17", sin embargo, necesito que funcione para todos los meses que están cada uno en una hoja diferente y el código es el siguiente:

Dim inicio As Long

Dim ValorAnterior() As Variant

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim fila As Long, col As Long
Dim contador As Long

Dim RangoTrabajo As Range

Set RangoTrabajo = Range("B8:J190")

If inicio = 0 Then
ValorAnterior = RangoTrabajo
inicio = 1

 Exit Sub
End If

If Intersect(Target, RangoTrabajo) Is Nothing Then 'Exit Sub

Else
contador = 1
 For fila = LBound(ValorAnterior, 1) To UBound(ValorAnterior, 1)
 For col = LBound(ValorAnterior, 2) To UBound(ValorAnterior, 2)
valor1 = RangoTrabajo(contador) 'actual valor de la celda(despues del cambio)
valor2 = ValorAnterior(fila, col) 'anterior valor de la celda (antes del cambio)

If Target = "" Then Exit Sub

If valor1 <> valor2 Then

Sheets("Dic-17").Activate 'Actualizar hoja activa
ActiveSheet.Cells(195, 2).Select
Selection.EntireRow.Insert
ActiveSheet.Cells(195, 4) = valor1
ActiveSheet.Cells(195, 5) = valor2
Call cuadrodialogomotivos
End If
contador = contador + 1
Next col
Next fila

ValorAnterior = RangoTrabajo
End If

End Sub

Sub cuadrodialogomotivos()

motivo.Show

End Sub