Visible o no

Regularmente cunado solo se necesita no visualizar contendió de celda se juega con los colores, es decir pones un fondo blanco o sin relleno, con letra blanca, así el contenido de la celda no se borra, solo que no se ve. Y claro cuando quieres volver a verlo simplemente cambias el color de las letras, te dejo una rutina que hace lo que entiendo, necesitas, me avisas cualquier cosa.
Sub abracadabra()
    Range("A1:B9").Select ' Este es la parte del codigo que escoge la seleccion, debes modificarlo a tus necesidades
' Luego lo que hace es quitar cualquier color del relleno de las celdas seleccionadas y poner color blanco al contenido
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
' Y esta ultima parte vuelve a poner color a las letras para que sean visibles
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End Sub