VBA Code Error: Compile Error Invalid Outside Procedure

Hi .

i created vba code and get this error : Compile Error Invalid Outside Procedure

I know to start SUB and end as END SUB but i do not know where i did wrong.
I also used private SUB instead of only SUB but not working



Code is sth like this

 Sub MVR_SEDAT()

    Dim file As Variant
    Dim path As String
    Dim folderPath As String
    Dim fileName As String
    Dim searchName As String
    
    ' Set the path to the desktop folder
    path = Environ("USERPROFILE") & "\Desktop"
    
    ' Set the folder path to move the files to
    folderPath = "C:\Users\sedatcan\Desktop\SEDAT"
    
    ' Set the string to search for in the file names
    searchName = "SEDAT"
  
    
    ' Loop through all files in the desktop folder
    For Each file In CreateObject("Scripting.FileSystemObject").GetFolder(path).Files
        
        ' Check if the file name contains the search string
        If InStr(file.Name, searchName) > 0 Then
        
            ' Get the file name
            fileName = file.Name
            
            ' Move the file to the destination folder
            FileCopy path & fileName, folderPath & fileName
            
            ' Delete the original file from the desktop
            Kill path & fileName
            
        End If
        
    Next file
    
    ' Show a message when the operation is complete
    MsgBox "All files containing " & searchName & " have been moved to " & folderPath
    
End Sub

Hi, welcome to the forum.
Please read the forum rules of how to mark code in your post.

I have not tested you code but I imagine you're missing the final backslash in the path declarations

folderPath= "C:\Users\sedatcan\Desktop\SEDAT\"

Also check all the other path references

As Croweater has said, there is nothing wrong with the code at compile time.

Option Explicit

Sub MVR_SEDAT()

Dim file As Variant
Dim path As String
Dim folderPath As String
Dim fileName As String
Dim searchName As String

' Set the path to the desktop folder
path = Environ("USERPROFILE") & "\Desktop"

' Set the folder path to move the files to
folderPath = "C:\Users\sedatcan\Desktop\SEDAT"

' Set the string to search for in the file names
searchName = "SEDAT"

' Loop through all files in the desktop folder
For Each file In CreateObject("Scripting.FileSystemObject").GetFolder(path).Files

    ' Check if the file name contains the search string
    If InStr(file.Name, searchName) > 0 Then
    
        ' Get the file name
        fileName = file.Name
        
        ' Move the file to the destination folder
        FileCopy path & fileName, folderPath & fileName
        
        ' Delete the original file from the desktop
        Kill path & fileName

    End If

Next file

' Show a message when the operation is complete
MsgBox "All files containing " & searchName & " have been moved to " & folderPath

End Sub

If this is the only code/module, then there could be "stray" characters before or after the subroutine that are confusing the compiler. For example, a single comma after the End Sub would give you a Compile error: Syntax error.

Maybe cut and paste just the code to a new module and then remove the original module.

See these recent solved threads:
https://www.excelforum.com/excel-pro...procedure.html

And: https://www.excelforum.com/excel-pro...procedure.html

Also look at the list of Similar Threads shown below.

Code compiles fine then there's some more code elsewhere in the module that is not posted.

@usedat

Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

However, if you continue to not use code tags, you can expect to have your thread BLOCKED until you add them yourself.