Macro para Contar Abas

[DiegoSilvares]

Olá pessoal,

Estou tentando um macro que me informe a quantidade de planilhas que tenho na pasta e já consegui esse aqui:

Sub ContaAbas()

MsgBox "Total de abas: " & ActiveWorkbook.Sheets().Count, vbOKOnly, "Conta Abas"

End Sub

Só que preciso que ele me diga quantas abas eu tenho, depois de uma determinada planilha.

Ex: Tenho as planilhas :

Plan1;Plan2;Plan3;Plan4

Se executar o macro ele retornará que tenho 4 planilhas, só que quero saber quantas eu tenho depois da "Plan2", ou seja 2.

Tem como ? Contar não é uma opção pois são muitas planilhas :x

[Visitante]

Sub ContaPlanilhas()
    Dim k As Long, x As Long, rspn As String, ws As Worksheet, flg As Boolean
      rspn = InputBox("entre com o nome da planilha de referência")
        If rspn = "False" Or rspn = "" Then Exit Sub
          For Each ws In Worksheets
            If ws.Name Like rspn Then flg = True:: Exit For
          Next ws
            If flg = True Then
              k = ThisWorkbook.Sheets.Count
              x = Sheets(rspn).Index
              MsgBox "há  " & k - x & " planilha(s) depois da planilha " & rspn
            Else:   MsgBox "planilha não encontrada"
              Exit Sub
            End If
  End Sub