Need to save/write ranges to a workbook
Well, this looks like it:
Sub DoFileRead()
Dim fileReadName
' Delete existing sheet "Copy"
Sheets("Copy").Select
ActiveWindow.SelectedSheets.Delete
' Get the filename
fileReadName = Application.GetOpenFilename("Excel Files (*.xls),
*.xls")
If fileReadName < False Then
Workbooks.Open fileReadName
End If
' Copy the sheet to the main app
Sheets("Copy").Select
Sheets("Copy").Copy After:=Workbooks("Designer
_1.23.xls").Worksheets("Coax Cables")
End Sub
All I need to do now is do some checking to be sure the "Copy" sheet
existing to start with. Thanks for all the help.
Simon
|