Reply to thread

Message: [QUOTE="David, post: 6362301"] This is the code to Import the data that the above code creates Sub RetrieveMWJCJob() ' ' RetrieveMWJCJob Macro ' Macro recorded 11/15/2006 by David Perkins ' ' Call ZeroMWJCSheet Dim MyDirectory As String 'Moves to 2009 Saved Jobs Directory MyDirectory = ActiveWorkbook.Path & "\" & "2009 Saved Jobs" ChDir MyDirectory Do FName = Application.GetOpenFilename Loop Until FName <> False Or msoButtonSetCancel If FName <> False Then Set ImportFile = Workbooks.Open(FileName:=FName) Else: Exit Sub End If Application.ScreenUpdating = False Dim password As String ThisWorkbook.Activate Sheet91.Select Range("CA3").Select password = Range("CA3").Value Sheet96.Select ActiveSheet.Unprotect (password) ImportFile.Activate Range("E5").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("E5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("D6:F9").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("D6:F9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("B6:B9").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("B6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("H6").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("H6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("B13:B16").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("B13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("H13").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("H13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("B20:B23").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("B20").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("H20").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("H20").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ActiveWindow.ScrollRow = 2 ActiveWindow.ScrollRow = 3 ActiveWindow.ScrollRow = 4 ActiveWindow.ScrollRow = 5 ActiveWindow.ScrollRow = 6 ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 8 ActiveWindow.ScrollRow = 9 ActiveWindow.ScrollRow = 10 ActiveWindow.ScrollRow = 11 ImportFile.Activate ActiveWindow.ScrollRow = 2 ActiveWindow.ScrollRow = 3 ActiveWindow.ScrollRow = 4 ActiveWindow.ScrollRow = 5 ActiveWindow.ScrollRow = 6 ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 8 ActiveWindow.ScrollRow = 9 ActiveWindow.ScrollRow = 10 ActiveWindow.ScrollRow = 11 ActiveWindow.ScrollRow = 12 ActiveWindow.ScrollRow = 13 ActiveWindow.ScrollRow = 14 ActiveWindow.ScrollRow = 15 ActiveWindow.ScrollRow = 16 ActiveWindow.ScrollRow = 17 Range("B28:B31").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate ActiveWindow.ScrollRow = 12 ActiveWindow.ScrollRow = 13 ActiveWindow.ScrollRow = 14 ActiveWindow.ScrollRow = 15 ActiveWindow.ScrollRow = 16 ActiveWindow.ScrollRow = 17 Range("B28").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("H28").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("H28").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("B35:B38").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("B35").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("H35").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("H35").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("B42:B45").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("B42").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate Range("H42").Select Application.CutCopyMode = False Selection.Copy ThisWorkbook.Activate Range("H42").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ImportFile.Activate ActiveWindow.Close ActiveWindow.ScrollRow = 16 ActiveWindow.ScrollRow = 15 ActiveWindow.ScrollRow = 14 ActiveWindow.ScrollRow = 13 ActiveWindow.ScrollRow = 12 ActiveWindow.ScrollRow = 11 ActiveWindow.ScrollRow = 10 ActiveWindow.ScrollRow = 9 ActiveWindow.ScrollRow = 8 ActiveWindow.ScrollRow = 7 ActiveWindow.ScrollRow = 6 ActiveWindow.ScrollRow = 5 ActiveWindow.ScrollRow = 4 ActiveWindow.ScrollRow = 3 ActiveWindow.ScrollRow = 2 ActiveWindow.ScrollRow = 1 Range("A1").Select ActiveSheet.Protect (password) Kill FName ChDir CurDir & "\.." Application.ScreenUpdating = True End Sub [/QUOTE]

Verification