Good morning guys, You guys have been super helpful! I have a macro that is working well but would like to do two things with it. 1) I would like to have all the columns and rows automatically unhidden for each worksheet. 2) I would like the save location changed to: ‘EMC-SNAS (Server7)’ \ Excel Workbook to Rename\
I have attached the code of my macro to help make sense of my questions. Any help would be greatly appreciated!! Regards, Kent ______________________________________________________________________________________ Sub test() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim wkb As Workbook Dim wk As Worksheet Dim VBProj As Object flpth = Application.GetOpenFilename("Excel File (*.xls*)," & "*xls*") On Error Resume Next Set wkb = Workbooks.Open(flpth, Password:="apple") On Error Resume Next Set wkb = Workbooks.Open(flpth) wkb.Unprotect "apple" For Each wk In wkb.Sheets wk.Unprotect "apple" Next wk Application.Wait (Now + TimeValue("0:00:5")) ' code to open vba editor written by NateO FROM Mr Excel Set VBProj = ActiveWorkbook.VBProject Application.VBE.MainWindow.Visible = True 'open VB Application.SendKeys "%{f11}" Application.SendKeys "apple", True Application.SendKeys "~", True VBProj.VBE.SelectedVBComponent.Activate ' '' For Each wk In wkb.Sheets '' With wkb.VBProject.VBComponents(wk.CodeName).CodeModule '' .DeleteLines 1, .CountOfLines '' End With ' Next wk With wkb.VBProject.VBComponents("Thisworkbook").CodeModule .DeleteLines 1, .CountOfLines End With MsgBox wkb.Path wkb.SaveAs wkb.Path & "/" & Left(wkb.Name, InStrRev(wkb.Name, "")) & ".xls" Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub __________________________________________________________________________________________ -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel