Função que verifica a existência de uma Worksheet - JJoão (02/2006)

Dúvida colocada: "..Tenho uma macro que gostaria de a executar só se existisse uma folha com um nome especifico como verifico isso ?.."

Solução: Uma macro que verifica a existencia de uma folha dando-lhe o nome desta.

Function ExisteSheet(nome As String) As Boolean
    Dim Sh As Worksheet
    On Error Resume Next
    Set Sh = Worksheets(nome)
    If Sh Is Nothing Then ExisteSheet = False Else ExisteSheet = True
    Set Sh = Nothing
End Function