Add message box if VBA cannot find correct file path

Hello Dagamerjc and welcome to the forum,

There are only a couple of things I can see which need tweaking.

First, there are two variables used in your code which have not been declared -WS and r

I also moved the On Error Goto Errormessage line to just before the line to which it applies - "ChDir "C:\.........."

I then simplified your Errormessage code. Your code after the errormessage remains unchanged.

Here is my suggested revision:

Sub addimport_2()

    Dim Thiscommand As Variant
    Dim fileFilterPattern As String
    Dim n As Long

    Dim WS As Worksheet     ' this variable was not declared
    Dim r As Range     ' this variable was not declared

    fileFilterPattern = "Text Files (*.txt; *.csv),*.txt;*.csv"
On Error GoTo Errormessage ' - moved
    ChDir "C:\Users\joe\Documents\Bronx\Raw\05.23"
    Thiscommand = Application.GetOpenFilename(fileFilterPattern)
    If Thiscommand = False Then
        MsgBox "Did not select files from jc`s folder."
        Exit Sub
 '=======   updated error message code if path is not found  ================
Errormessage:

    MsgBox "You need to change directory path"

    Exit Sub     ' ADDED
'==============================================================
    End If
    Application.ScreenUpdating = False
    Open Thiscommand For Input As #1
    Do Until EOF(1)
        Line Input #1, Thiscommand
        If Len(Thiscommand) > 0 Then
            Thiscommand = Replace(Thiscommand, ",", Chr(9))
            Thiscommand = Split(Thiscommand, Chr(9))
            ActiveCell.Offset(n, 0).Resize(1, UBound(Thiscommand) + 1).Value = Thiscommand
        End If
        n = n + 1
    Loop
    Close #1
    Application.ScreenUpdating = True
    For Each WS In Sheets
    On Error Resume Next
    For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants)
        If IsNumeric(r) Then r.Value = (r.Value) * 1
    Next r
Next WS
End Sub

Hope this helps. If this solves your problem please mark my answer as selected.

Cheers   :-)