Sub ListFiles()
    Dim ws As Worksheet
    Dim folderPath As String
    Dim filename As String
    Dim i As Integer

    ' 사용할 시트 설정, "파일명 수정" 시트가 없으면 생성
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("파일명 수정")
    If ws Is Nothing Then
        Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = "파일명 수정"
    End If
    On Error GoTo 0

    ' 폴더 경로 설정
    folderPath = "D:\전표처리용\"

    ' 폴더 내의 첫 번째 파일 찾기
    filename = Dir(folderPath)

    ' A열 초기화
    ws.Columns(1).Clear

    ' A2셀부터 시작
    i = 2

    ' 폴더 내 모든 파일 리스트업
    Do While filename <> ""
        ws.Cells(i, 1).Value = filename
        i = i + 1
        filename = Dir()  ' 다음 파일
    Loop

    ' 열 너비 자동 조정
    ws.Columns(1).AutoFit

    MsgBox "파일 목록이 생성되었습니다.", vbInformation
End Sub