Søger en løsning ala hyberlink

Højreklik på fane for arket og vælg vis kode, og indsæt følgende:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If IsNumeric(Range("A1").Value) Then
            If Range("A1").Value <= Me.Columns.Count Then
                ActiveWindow.SmallScroll ToRight:=Range("A1").Value
                Target.Offset(0, Range("A1").Value - 1).Activate
            End If
        End If
    End If
End Sub

Hej smartoffice_dk, det virker perfekt. Kan du ændre koden så den vise 2 kolonner mindre f.eks hvis jeg taster 100 viser den kolonne 98

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If IsNumeric(Range("A1").Value) Then
            If Range("A1").Value <= Me.Columns.Count Then
                ActiveWindow.SmallScroll ToRight:=Range("A1").Value - 2
                Target.Offset(0, Range("A1").Value - 1).Activate
            End If
        End If
    End If
End Sub

God fornøjelse
Flemming

Mange tak for hjælpen