14
Nov07
Macro que verifica a existência de uma Worksheet
Como primeiro código para o blogue,lembrei-me desta pequena função.
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
Fonte: http://jjoao2k.no.sapo.pt