Ir a la siguiente hoja visible

Estoy desarrollando un proyecto y dentro de su proceso requiero que una vez almacene lo que está en una hoja pase a la siguiente “Visible”, tengo el siguiente código pero no corre cuando la hoja “visible” está separada de la actual ejem ( hoja1 y hoja4) pero si corre en hoja1 y hoja2.

If ActiveSheet.Name <> Sheets (Sheets.Count).Name The n

ActiveSheet.Next.Select

End If

Quiero aclarar que según selección en la hoja1 se mostrará (por medio de una macro que ya programe) una hoja diferente, puede ser hoja2, hoja3, hoja4, hoja5, etc... Todas ocultas excepto hoja1.