VBA Code with Listbox quit working after file was saved and reopened.

[nate.oyen]

I had a vba code running perfectly fine but after i saved the file and reopened the macro stopped working.

this code below

Private Sub CommandButton8_Click()
 Dim sFind As String, rFound As Range
 
 Select Case Me.ProductOrderTable.Value
 Case Is <> vbNullString
 sFind = Me.ProductOrderTable.Value
 
 With Sheets("ProductTable")
 Set rFound = .Cells.Find(what:=sFind, After:=.Cells(1, 1))
 
 If Not rFound Is Nothing Then
rFound.Range(Cells(2), Cells(4)).Select
    Selection.ClearContents
    
Range("B" & ActiveCell.Row).Select
Range("D" & ActiveCell.Row + 1, Cells(Range("B1000000").End(xlUp).Row, 2)).Select
Selection.Copy
  Selection.Offset(-1, 0).Select
    ActiveSheet.Paste


    Range(Selection, Selection.End(xlDown)).Select
    Selection.End(xlDown).Select
    Range("D" & ActiveCell.Row + 1, Cells(Range("B1000000").End(xlUp).Row, 2)).Select
    Selection.ClearContents
            
    
 End If
 End With
 Case Else: Exit Sub
 End Select
End Sub

Can't figure out for the life of me why..
I went back to previous saved files ( i save after every new change) when I had working codes, and the VBA for that same macro function don't work on there as well. Any assistance would be appreciated.

Thanks in advance.

Note: All my other macros work, just this particular VBA code with this listbox and command button.

[Richard Buttrey]

Please upload the workbook so that we may check

On which line does the macro fail?
Have you changed anything else, new PC, operating system., Excel version..Sheet name "Product Table"..?

[nate.oyen]

Attached the file.

VBA is in MasterForm (userform)

Nothing changed. Just wrote made the code today, and was working fine all the way up until i saved and reopened.

[Richard Buttrey]

Hi,

Where does your code error?

I get the error at the

Set objFolder = objFSO.GetFolder(Range("PRF_Directory").Value)

since the path is invalid

I should also check B2 B4 & B5 on the Directory sheet. There may be some conflict between the Application user name and the Environ user name.

[nate.oyen]

Yes you would get the error on that since that directory does not exist on your system.
All the codes work on mine since it was made for my directories, which is over sharepoint.

[Richard Buttrey]

So have you recently moved to Sharepoint?

On which line does your error occur? You've not mentioned that yet

[nate.oyen]

everything works except the macro in my userform (masterform)
Private Sub CommandButton8_Click()

that's it.

It doesn't run when it should do what it did when I initially made it.

It should clear the selected item in the listbox and copy the rows below and paste them up and delete the last row.