Error en un userform

Hola amigo tengo este código:
Private Sub cmbTodo_Click()
ActiveSheet.ShowAllData
Range("B2").Select
End Sub
Que funciona bien al hacer click
Pero cuando por casualidad se presiona nuevamente me sale esta ventana:
Se ha producido el error '1004' en tiempo de ejecución:
Error en el método ShowAllData de la clase Worksheet
Finalizar/Depurar/Ayuda
Existe alguna forma de evitar este mensaje de error.
Gracias.