Søgning

Hejsa Ritzau. Prøv at se om du kan bruge dette:

Sub FindPlaying()
Dim x As Worksheet
Dim XSkjult As Boolean
For Each x In Application.ActiveWorkbook.Sheets
    XSkjult = False
    If x.Visible = xlSheetHidden Then
        x.Visible = xlSheetVisible
        XSkjult = True
    End If
x.Activate
x.Range("A1").Activate
    If FindOrd("Playing") Then Exit Sub
If XSkjult Then x.Visible = xlSheetHidden

Next

End Sub

Private Function FindOrd(ByVal Ord As String) As Boolean
On Error GoTo ErrHandler
    FindOrd = Cells.Find(What:="Playing", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
Exit Function
ErrHandler:
        FindOrd = False
End Function

Det ser ud til at virke helt perfekt. Tak for hjælpen !