PLEASE NOTE:
TAKE BACKUP OF YOUR ORIGINAL WORKBOOK BEFORE
YOU TRY THIS.
I HAVE NOT check the code so if it solves your problem..atleast inform me.
Sub modifiedworkbookbackup()
Dim sht As Worksheet
For Each sht In Workbooks("allexperts").Worksheets
If sht.[b9] <> "" Then
'
sht.Delete
End If
Next sht
Application.GetSaveAsFilename "Your file Name"
' You can save your file in number of formats.
'ThisWorkbook.SaveAs "d:myback" & Worksheets("sheet4").Range("a1").Text, xlNormal
End Sub
Please study below code also
Sub workbooksave()
' to make a save in current working folder
' use below code
'ThisWorkbook.SaveAs Worksheets("sheet4").Range("a1").Text
' -------------------------------
' If you want to saveas in different folder then give the
' complete path and dont forget to put back slash
' at the end of the folder where you want to change
' the folder otherwise file will be save with the
' last word and the filename suggested
ThisWorkbook.SaveAs "d:myback" & Worksheets("sheet4").Range("a1").Text
End Sub
Sub workbookopennetwork()
Application.ScreenUpdating = False
' if we want to open work book in network machine and directory in the network then
Workbooks.Open "\AbhishekcMy DocumentsVadnagar.xls"
Application.ScreenUpdating = True
End Sub
I hope this will help you.
ni****h desai
http://www.pexcel.com
[ This Message was edited by: nisht on 2002-03-31 00:18 ]
Like this thread? Share it with others