Software Applications Programming Errors and solutions.

Insert Names Across Rows Using Macro in excel  standard module Sub Test() Dim x As Worksheet Application.DisplayAlerts = False On Error Resume Next Sheets("DataSheet").Delete Names("Data").Delete Application.DisplayAlerts = True On Error GoTo 0 Sheets.Add().Name = "Datasheet" Dim nm As Name Dim i As Long Dim avarSplit As Variant Dim noPage As Variant i = 1 Application.ScreenUpdating = False With Sheets("DataSheet") For Each nm In Names .Cells(1, i) = nm.Name .Cells(2, i) = "'" & nm.RefersTo .Cells(3, i) = nm.Value 'noPage = Split( ????? i = i + 1 Next nm End With Columns("A").Resize(, i).AutoFit End Sub '- ' in workbook module edd: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Call Test End Sub '--   Code to The W...

Copy a column of data from one table to another in sql create <New_Table_Name> (Col1,col2,col3,....)  as select * from <Old_table_Name) (Col1,col2,col3,....) ;

Reopen a Previously Closed Workbook Without Referencin​g by Name Sub dosomething() Dim strLastOpen As String strLastOpen = Application.RecentFiles(1).Name Set wkb = Workbooks.Open(strLastOpen) ' etc End Sub