Macro eliminar filas y columnas ocultas

Prueba con el siguiente código, en el que tendrás que sustituir "Hoja que no se desea tocar1" etc. con los nombres de las hojas que no quieres procesar.
 
De todas formas, dado que el código elimina filas y columnas, te aconsejo que lo pruebes en una copia del libro.
 
Sub EliminarFilasYColumnasOcultas()
    Dim wksH As Worksheet
    Dim intCol As Integer, lngRow As Long
     
    For Each wksH In ThisWorkbook.Worksheets
        
        If wksH.Name <> "Hoja que no se desea tocar1" _
           And wksH.Name <> "Hoja que no se desea tocar2" _
           And wksH.Name <> "Hoja que no se desea tocar3" Then
            
            For intCol = wksH.UsedRange.Columns.Count To 1 Step -1
                If wksH.Columns(intCol).Hidden Then wksH.Columns(intCol).Delete
            Next intCol
            
            For lngRow = wksH.UsedRange.Rows.Count To 1 Step -1
                If wksH.Rows(lngRow).Hidden Then wksH.Rows(lngRow).Delete
            Next lngRow
        End If
        
    Next wksH
        
    Set wksH = Nothing
End Sub
 
 
Saludos.