Creating a macro to open as save other selected Excel sheets
Hi Wessie,
One way:
'=============
Public Sub Tester()
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks("YourBook.xls")
On Error GoTo 0
If wb Is Nothing Then
Workbooks.Open Filename:="YourBook.xls"
End If
End Sub
'<<=============
--
---
Regards,
Norman
"Wessie" wrote in message
oups.com...
How can one create a macro that open another workbook that detects if
the workbook is allready open? Example: If I run my macro to activate
the window,but the book is not open, it shows an error. The same if I
run my macro to open the workbook, but it is allready open it shows
errors.
I would aso like to know how my macro can detect, when saving a
spesific sheet in my workbook to a new workbook ander a given file
name(ex."BACKUPSHEET.xls"), if the name in that folder allready exists
and then save it with a simular name but not the same(ex: "BACKUPSHEET
1.xls").
I would appreciate it if some one can help me with these problems.
|