How to Retrieve Data from Electronic Record Sub Read_Impac_File() ChDir C:\WINDOWS\Temp Workbooks.Open Filename:= C:\WINDOWS\Temp\txfield.xls Columns( A:R ).Select Selection.Copy Windows( SL15_AllX_Adac_IMPAC_002.xls ).Activate ActiveSheet.Unprotect Temporary Columns( AE:AV ).Select ActiveSheet.Paste Range( B3 ).Select Windows( txfield.xls ).Activate Range( D1 ).Select ActiveWindow.Close For r = 1 To 1000 A$ = Cells(r, 31) If Left(A$, 5) = IMPAC Then GoTo Skipout If A$ = Approved: Then Cells(r, 33) = Next r Skipout: Call Parse Call MoveDATA ActiveSheet.Unprotect Temporary Call Tidy_Up End Sub
{}