label not defined

[0 Agios]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim str_folder As String


If Range("B5").Select Then GoTo 100 Else GoTo 200
200
If Range("B6").Select Then GoTo 300 Else GoTo 400
400
If Range("B7").Select Then GoTo 500 Else GoTo 600
600
If Range("B8").Select Then GoTo 700 Else GoTo 800
800
If Range("B9").Select Then GoTo 900 Else GoTo 1000
1000
If Range("B10").Select Then GoTo 1100 Else GoTo 1200
1100 MsgBox "fjfjfjjf"

1200
End Sub



100
str_folder = "Z:\1-PRE-CONSTRUCTION\2-2021 BIDS\1_CURRENT BIDS\" & Range("C5").Text & "\1-Estimating\3-Bid Drawings\1-Drawings"
Call Shell("explorer.exe " & str_folder, vbNormalFocus)
End Sub

 

[Joe4]

That is because you do not have 300, 500 ,700, or 900 defined anywhere in your code (at least not anywhere in the code that you posted).
You are telling to go somewhere that does not exist in your code.

Note, it is highly advised not to use a lot of GoTo commands in Excel VBA. It is common in some older programming languages, but not so much in Excel.
See here: GoTo statement (VBA).

 

[My Aswer Is This]

When I see code like this:
If Range("B5").Select Then GoTo 100 Else GoTo 200
200

I think of code written years ago when Goto 100 meant Goto line 100 of the code.
I see you do not show what version of Excel your using.

 

[0 Agios]

I fixed it thank you