Option Explicit
Public Sub GetSOPFiles()
' Set folder path
Const FolderPath As String = "C:\Users\test\Desktop\SOP Audit Excel Prototype"
Const FileExt As String = "docx"
Dim oFSO As Object
Dim oFolder As Object
Dim oFiles As Object
Dim oFile As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(FolderPath)
Set oFiles = oFolder.Files
Dim v As Variant
Dim iSheet As Long
For Each oFile In oFiles
If LCase(Right(oFile.Name, 4)) = FileExt Then
v = Split(oFile.Name, "-")
Select Case v(3)
'Setup Select to determine dept values
Case "PNT", "VLG", "SAW"
Call pvtPutOnSheet(oFile.Name, 1)
Case "CRT", "AST", "SHP", "SAW"
Call pvtPutOnSheet(oFile.Name, 2)
Case "CRT", "STW", "CHL", "ALG", "ALW", "ALF", "RTE", "AFB", "SAW"
Call pvtPutOnSheet(oFile.Name, 3)
Case "SCR", "THR", "WSH", "GLW", "PTR", "SAW"
Call pvtPutOnSheet(oFile.Name, 4)
Case "PLB", "SAW"
Call pvtPutOnSheet(oFile.Name, 5)
Case "DES"
Call pvtPutOnSheet(oFile.Name, 6)
Case "AMS"
Call pvtPutOnSheet(oFile.Name, 7)
Case "EST"
Call pvtPutOnSheet(oFile.Name, 8)
Case "PCT"
Call pvtPutOnSheet(oFile.Name, 9)
Case "PUR", "INV"
Call pvtPutOnSheet(oFile.Name, 10)
Case "SAF"
Call pvtPutOnSheet(oFile.Name, 11)
Case "GEN"
Call pvtPutOnSheet(oFile.Name, 12)
End Select
End If
Next oFile
End Sub
Private Sub pvtPutOnSheet(s As String, i As Long)
Dim r As Range
With Worksheets(i)
Set r = .Cells(.Rows.Count, 1).End(xlUp)
If Len(r.Value) > 0 Then Set r = r.Offset(1, 0)
r.Value = s
End With
End Sub