Function ObterIntervalo() as Range
    ObterIntervalo = Range("A1:G4")
End Function

Sub ForEachPlanilhas()
    Dim ws As Worksheet
    For Each ws In Sheets
        ws.Visible = True
    Next ws
End Sub