0 Agios
Well-known Member
- Joined
- Feb 22, 2004
- Messages
- 570
- Office Version
- 365
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
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