Guru do Excel e Power BI

Dim ws As Worksheet, k As Long
  For Each ws In ThisWorkbook.Worksheets
   If ws.Visible = True Then k = k + 1: If k = 2 Then Exit For
  Next ws
   If k = 1 Then Exit Sub
  'demais comandos da sua macro

Public Function ContPlanVisiveis() As Long
    Dim wshPlan     As Worksheet
    Dim lngCont     As Long
    
    'Loop por todas as planilhas, verifica se cada planilha está visível. Se sim, faz a contagem.
    For Each wshPlan In ThisWorkbook.Worksheets
        If wshPlan.Visible Then lngCont = lngCont + 1
    Next wshPlan
    
    'Atribui à função o número de planilhas visíveis
    ContPlanVisiveis = lngCont
End Function

Public Sub Principal()
    
    If ContPlanVisiveis > 1 Then
        'Outras linhas de código
    End If
End Sub