Excluir Guia

Janeiro 18, 2008 at 11:12 pm (Excel)

Public Function ExcluirGuia(Guia As String)
Dim x As Long

For x = 1 To Worksheets.Count

If Sheets(x).Name = Guia Then

Application.DisplayAlerts = False
Sheets(x).Delete
Application.DisplayAlerts = True
Exit For

End If

Next x

End Function

Comente