GlobaLevel
asked on
VBA - create new workbook and make it invisable
I have tried all these statements, and I cant seem to make the new workbook that i just created invisable.....
'MAKE INVISABLE
newXl.visable = False
Application.Windows("dcCop yBefore.cs v").Visibl e = True
Set wbk = Workbooks.Open("C:\dispute dChangesRp ts\dcCopyB efore.csv" )
Windows(wbk.Name).Visible = False
Windows("dcCopyBefore.csv" ).Visible = False
Worksheets("dcCopyBefore") .visable = False
'MAKE INVISABLE
newXl.visable = False
Application.Windows("dcCop
Set wbk = Workbooks.Open("C:\dispute
Windows(wbk.Name).Visible = False
Windows("dcCopyBefore.csv"
Worksheets("dcCopyBefore")
On Error GoTo ErrCatcher
Dim newXl As Object
Dim wbk As Workbook
Dim ws As Worksheet
Dim strCopy As String
Dim csvPath As String
Dim dcCopyBefore As String
dcCopyBefore = "dcCopyBefore.csv"
'Create a directoriy to save new copy of CB Data to
MyPath = "C:\disputedChangesRpts"
If Dir$(MyPath, vbDirectory) = "" Then MkDir MyPath
Set newXl = Workbooks.Add
With newXl
.Title = "dcCopyBefore"
.Subject = "dcCopyBefore"
.SaveAs Filename:="dcCopyBefore.csv"
End With
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.