No explicas si la macro recorre todas las hojas y activa la macro o bien si tu te posicionas en determinada hoja y corres la macro así que para ambos casos te paso un ejemplo, yo puse la macropara poner en todas la hojas excepto en la 5 el numero 1 en la celda A1, solo cambia esta condición para llamar a tu macro.
Sub activa_macro()
NOMBRE = UCase(ActiveSheet.Name) <> "HOJA5"
If NOMBRE Then Range("a1") = 1
End Sub
Sub ACTIVA_MACRO_RECORRIDO()
For Each HOJA In Worksheets
NOMBRE = UCase(HOJA.Name) <> "HOJA5"
If NOMBRE Then Sheets(HOJA.Name).Range("A1") = 1
Next HOJA
End Sub