Fsulawrc.com

For ix = 1 To Worksheets(1).UsedRange.Rows.Count. Call DeleteAllLettersAndPeriods(ix) Next ix. End Sub. Sub ListPdfNames() 'Lists all the sheet names with .pdf extension in the workbook onto the _ first sheet 7th column (starting at cell H1) Dim i As Integer. For i = 1 To Worksheets.Count. ................
................