Flyt til absolut kolonne relativ række

Noget i denne stil, men skal den ikke komme fra samme kolonne ??


Skal være i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then ' 16 = kolonne P
Cells(Target.Row, "F").Activate
End If
End Sub

Desværre kan jeg ikke få det til ar virke Excel 2003

Jeg ved ikke hvilken celle den står i, men makøren skal bare løbe i den retning til den står i Kolonne F men på SAMME række

'Jeg har selv fundet en løsning ikke særlig køn men det virker!

'Grunden til at jeg ikke bare bruger

'ActiveCell.Offset(0, 5).Range("A1").Select

'er at jeg har mange ark hvor jeg skal bruge koden og slutkolonne er forskellig for alle ark.


Sub FindKolonnePaaRaekke()
   
    'Finder kolonne A
On Error Resume Next
    ActiveCell.Offset(0, -100).Range("A1").Select
    ActiveCell.Offset(0, -75).Range("A1").Select
    ActiveCell.Offset(0, -50).Range("A1").Select
    ActiveCell.Offset(0, -25).Range("A1").Select
    ActiveCell.Offset(0, -15).Range("A1").Select
    ActiveCell.Offset(0, -10).Range("A1").Select
    ActiveCell.Offset(0, -5).Range("A1").Select
    ActiveCell.Offset(0, -1).Range("A1").Select
    ActiveCell.Offset(0, -1).Range("A1").Select
    ActiveCell.Offset(0, -1).Range("A1").Select
    ActiveCell.Offset(0, -1).Range("A1").Select
On Error GoTo 0



    X = [IV1] 'fx 6 = Kolonne F
    Do While ActiveCell <> "Slut" 'Løber til højre til slut findes elle den samme række nr. som står i IV1
   
    Y = ActiveCell.Column
    If Y = X Then
    Exit Sub
    End If
   
    ActiveCell.Offset(0, 1).Select
    Loop

End Sub

Spørgsmålet er lukket