Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'*** a macro to open a new workbook and copy cells from an existing (active) one
Sub CopyData()
Dim xlBook1 As Excel.Workbook, xlBook2 As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet, xlSheet2 As Excel.Worksheet
'*** Set xlBook1 to the Active WorkBook in Excel
Set xlBook1 = Excel.ActiveWorkbook
'*** You can also use this to open a file
'set xlbook1 = excel.Workbooks.Open("MyFile.xls")
Set xlSheet1 = xlBook1.ActiveSheet
'*** Set xlBook2 to a NEW WorkBook in Excel
Set xlBook2 = Excel.Workbooks.Add
Set xlSheet2 = xlBook2.ActiveSheet
'*** Copy a few cells accross to the new workbook
For x = 1 To 5
For y = 1 To 5
xlSheet2.Cells(y, x) = xlSheet1.Cells(y, x)
Next
Next
'*** Save the new work book
xlBook2.SaveAs
End Sub