The workbook has many sheets that are named inconsistently. I have to rename to Sheet1, Sheet2 etc. The standard defaults for an upload into a database.
This is as far as I have gotten with VBA - please help!Sub Rename() Dim ws As Worksheet Dim Name As String Dim NumSheets As Integer NumSheets = Sheets.Count For j = 1 To NumSheets For Each ws In Worksheets ws.Name = ????? Next ws Next j End Sub
Veronica
Bookmarks