Handling hvis man står i B2

Hvis koden skal aktiveres blot når du står i B2, skulle du så ikke bruge SelectionChange i stedet for Change?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Target.Address = "$B$2" Then
    MsgBox "Du er der", vbOKOnly
End If

End Sub

Problemet er koden
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
og
If Target.Address = "$B$2" Then
kendes heller ikke i Excel 95

Jeg har hidtil brugt hele den her smøre her

Sub AbsolutKolonne()
    Application.EnableCancelKey = xlDisabled
On Error Resume Next
    ActiveCell.Offset(-1, 0).Range("A1").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    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
End Sub


Sub AbsolutRaekkeOP()
    On Error Resume Next
    ActiveCell.Offset(-2000, 0).Range("A1").Select
    ActiveCell.Offset(-1000, 0).Range("A1").Select
    ActiveCell.Offset(-500, 0).Range("A1").Select
    ActiveCell.Offset(-300, 0).Range("A1").Select
    ActiveCell.Offset(-200, 0).Range("A1").Select
    ActiveCell.Offset(-100, 0).Range("A1").Select
    ActiveCell.Offset(-50, 0).Range("A1").Select
    ActiveCell.Offset(-25, 0).Range("A1").Select
    ActiveCell.Offset(-10, 0).Range("A1").Select
    ActiveCell.Offset(-10, 0).Range("A1").Select
    ActiveCell.Offset(-5, 0).Range("A1").Select
    ActiveCell.Offset(-3, 0).Range("A1").Select
    ActiveCell.Offset(-2, 0).Range("A1").Select
    ActiveCell.Offset(-1, 0).Range("A1").Select
    On Error GoTo 0
End Sub

Sub Enter_Bilag()
    Application.ScreenUpdating = False
    If ActiveSheet.Name = "Bilag" Then
    Finder_Raekker_Kolonner 'Makro 2
    If [iv1] >= 6 And [iv2] = "B" Then
    Finder_Vare 'Makro 3
    Exit Sub
    End If
       
       
    End If
End Sub
'**********************************************

Sub Finder_Raekker_Kolonner() 'Makro2
    Set MinCell = ActiveCell
    '**********************
    AbsolutKolonne 'Makro *
    y = ActiveCell.Value '*Finder ud af om det er en linje der må skrives på
    [iv1] = y '          *
    MinCell.Select '      *
    '**********************
    AbsolutRaekkeOP 'Makro*
    p = ActiveCell.Value '*Finder ud af om det er Kolonne B
    [iv2] = p '          *
    MinCell.Select '      *
    '**********************
End Sub

Der må jeg stå af igen. Jeg lavede engang noget kode i 95, men kan ikke finde det. Så vidt jeg husker, så håndterede jeg vist også det hele med kommandoknapper - så det vil alligevel heller ikke være nogen hjælp for dig. Beklager.

Jeg har i første række som skjules skrevet A B C D i kolonne A-D og kolonne A Række 6 op efter skrevet 6 til fx 100 som må skrives i. Men som du kan se er det meget omstændig

Jeg har selv fundet en løsning på det, så jeg lukker spørgsmålet, men tak for dit svar sjap.
Sub CelleAdresse()
  [iv1].Value = ActiveCell.Row
  [iv2].Value = ActiveCell.Column
  [iv3].Value = ActiveCell.Address
End Sub

Lukket

Godt gået! :0)