GOTO til at starte subrutine

kan man ikke gøre sådan
IF range (A1)= "3" then
  UserForm_Activate()
end if

Nej, den går ikke!

hmm kan ikke huske om man måske skal brug
Call UserForm_Activate()

Højreklik på fanebladet, og vælg "Vis programkode" og indsæt følgende

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$1" Then
    If Range(A1) = 2 Or Range(A1) = 3 Then
       
    End If
End If

End Sub

Den vil heller ikke, hmm..... mystisk. Koden bliver bare ignoreret!!

sjap. Så får jeg en runtime error

Ja der var lige en lille bøf:

ret til:

    If Range("A1") = 2 Or Range("A1") = 3 Then

Det bliver stadigvæk bare ignoreret

den kode du gav mig opdatere jo heller ikke rutinen
"Private Sub UserForm_Activate()"

Ja, jeg lavede sådan set blot det som du kalder GOTO delen. Du må selv sætte noget det program ind som du skal bruge. Din pointtildeling antyder jo at det er en nem opgave, så jeg troede, at du måske selv kunne klare resten ;0)

Hvis ikke har jeg måske et bud her:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$1" Then
    If Range("A1") = 2 Or Range("A1") = 3 Then
        DialogSheets("Userform1").Show
    End If
End If

End Sub

Den vil køre Userformen "Userform1" hvis A1 får værdien 2 eller 3.

oki, hvis du sender et svar sjap, så er den hjemme ;-)

:0)