Al escribir en un rango de celdas me traslade a otra página

Private Sub Worksheet_Change(ByVal Target As Range)
'Marcial Castro
    If Not Intersect(Target, Range("C5:C34")) Is Nothing Then
            Worksheets("Artículos").Select
    End If
End Sub

Sobraba una línea.

Pon el siguiente evento en la hoja en la que quieres que ocurra

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, [C5:C34]) Is Nothing Then
        Sheets("articulos").Select
        Sheets("articulos").[C34].Select
    End If
End Sub

Saludos.Dante Amor