Navigation

   Jeg har efter indtastning af macro begyndt at få en advarsel. Det er nedenstående macro excel ikke kan lide. Nogen der har en ide til hvorfor?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oSheet As Excel.Worksheet

    If Target.Address = "$A$8" Then
        If IsNumeric(Target.Value) Then
            If Target.Value >= 0 And Target.Value < 61 Then
                Set oSheet = ActiveWorkbook.Sheets("TILBUDSLISTE")
                oSheet.Range("A9:A68").EntireRow.Hidden = False
                oSheet.Range("A" & Target.Value + 9 & ":A69").EntireRow.Hidden = True
            End If
        End If
    End If
End Sub

Navigation

Advarsel