Open workbook line doesnt work....Help!

[rob_sheeds]

Works fine until last line....any tips? Maybe the book closing stops the last line from working??? Any suggestions?

Sub Retail_Trackers()
'
' Unprotect and Save as .xls Macro
Dim MyString As String

ActiveSheet.Unprotect Password:="sg6228"
ActiveWorkbook.Unprotect Password:="sg6228"
MyString = Range("F9") & " " & Range("E5") & " " & Range("B7") & " " & Range("I7")
FileDrive = "S:\Business Management\Retail Trackers\2012\4. October\"
ActiveWorkbook.SaveAs Filename:=FileDrive & MyString, FileFormat:=56

ActiveSheet.Protect Password:="sg6228"
ActiveWorkbook.Protect Password:="sg6228"
ActiveWorkbook.Save
ActiveWorkbook.Close

Application.Workbooks.Open Filename:="S:\Business Management\Retail Trackers\2012\4. October\Salons October.xlsm"
End Sub

 

[bensonsearch]

Hi,
yes. you are closing the workbook then trying to run code. What you could do is put the line into the workbookclose event. if it only opens under a set of condidtions then can use an if statement.