Workout Instructions

[JenniferS]

Hello,

Can there be a message popup if the file path isn't entered correctly? Then exit sub so the user can correct the file path.

"Please correct the file path"

Thank you for your help

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("G6:H29")) Is Nothing Then
        Dim PicPath As String
        PicPath = Range("PicPath").Value & "\" & Range("G" & Target.Row).Value
        Shapes("PictureArea").Fill.UserPicture PicPath
    End If
    
    If Not Application.Intersect(ActiveCell, Range("H6:H29")) Is Nothing Then
        ActiveSheet.Unprotect
        [J5].Value = Target.Offset(0, -5).Value   'Lookup value for instructions
        ActiveSheet.Protect
    End If

End Sub

 

[JenniferS]

fart on it then

 

[JenniferS]

life threw me a curve

 

[Marc L]

Hello, according to VBA help insert this codeline :​

​

If Dir(PicPath) = "" Then MsgBox "Invalid path", 48, "Alert": Exit Sub​

​

Do you like it ? So thanks to click on bottom right Like !​

​

 

[JenniferS]

Where can this be inserted? Maybe show me thanks.

 

[Marc L]

Obviously after the codeline PicPath = …​

​

 

[JenniferS]

Thank you that worked!