Error al cambiar de hoja determinada

Me está ocurriendo una cosa muy rara que no aclaro de ver el porqué. El error me lo da cuando cambio de PC, aunque tengo la misma configuración en ambos (eso creo).

Puedo pasar de una hoja a otra indistintamente al ejecutarse una macro, pero cuando se ha de activar la hoja FICHAS, me da error señalando: Sheets("Fichas").Select

Estos son las secuencias que tengo en la hoja FICHAS:

Muy agradecido

Private Sub ListBox1_Click()
End Sub
Private Sub Worksheet_Activate()
'llena el listBox con valores 'no vacíos' de hoja Pedidos, col E
Application.ScreenUpdating = False
ListBox1.Clear: Range("C2") = ""
'copia col B en rgo auxiliar para ordenar
    Sheets("Clientes").Range("B1:B" & Sheets("Clientes").Range("B" & Rows.Count).End(xlUp).Row).Copy Destination:=ActiveSheet.Range("BB1")
    Application.CutCopyMode = False
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("BB1:BB" & Range("BB" & Rows.Count).End(xlUp).Row), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("BB1:BB" & Range("BB" & Rows.Count).End(xlUp).Row)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
'llena listbox con valores <> vacíos
For i = 2 To Range("BB" & Rows.Count).End(xlUp).Row
    If Range("BB" & i) <> "" Then ListBox1.AddItem Range("BB" & i)
Next i
End Sub