
Public Sub Stampa()
Dim Cella As Range, Visibile As XlSheetVisibility
Application.ScreenUpdating = False
For Each Cella In Range("F5:F100").Cells
If Cella.Value <> "" Then
With Sheets(Cella.Value)
Visibile = .Visible
.Visible = True
.PrintOut
.Visible = Visibile
End With
End If
Next Cella
Application.ScreenUpdating = True
End Sub |
