Analys av kod

[Emilb]

Hej,

 

Har en kod som jag inte förstår mig på, specifikt i vilken flik i excel den jobbar mot. Hur ändrar jag i så fall om jag vill ha en specifik flik?

 

Private Sub Workbook_Open()

'UpdatebyExtendoffice20161221

    Dim daterng As Range

    Dim DateCell As Range

    Dim WorkSht As Worksheet

    Dim dateStr As String

    Application.ScreenUpdating = False

    For Each WorkSht In Worksheets

        WorkSht.Select

        'Set daterng = Range("A:A")

        Set daterng = WorkSht.UsedRange

        'daterng.Select

        For Each DateCell In daterng

            DateCell.Activate

            ActiveCell.Select

            On Error Resume Next

            dateStr = DateCell.Value

            If dateStr = Date Then

                DateCell.Select

                Exit Sub

            End If

        Next

    Next WorkSht

    Application.ScreenUpdating = True

    'Worksheets(1).Select

End Sub

 

mvh

Dan

[Emilb]

Toppen! Tack för all hjälp

 

vänliga hälsningar

Dan