F8 jumps to end of my code

[Mariappan]

When i use F8 to test my code and whenever i cross the below line my code jumps to the end of my code. Please can someone assist.

filetoopen = Application.GetOpenFilename(Title:="browse for your file & import range", Filefilter:="Excel Files(*.xls*),*xls*")
If filetoopen <> False Then
Set openbook = Application.Workbooks.Open(filetoopen)
End If

Thanks
Mariappan

 

[Joe4]

Welcome to the Board!

I think we need to see the rest of your code, to see where exactly this is in relation to everything else, and if there is an Error Handling code built-in.

When posting your code, please use Code Tags, a described here: How to Post Your VBA Code

 

[mart37]

"Excel Files(*.xls*)"

 

[Mariappan]

Hi Joe4,

Thanks for getting back. Please find the full code below. The bold highlighted line is where my code jumps till end when i press F8. Kindly assist.

Sub summary()
Dim newworkbook As Workbook
Dim filetoopen As Variant
Dim openbook As Workbook
Dim wb As Workbook
Application.ScreenUpdating = False
Dim dattym As String
Dim lrow As Long
Dim lcol As Long
Dim rownum As Long
Dim list As Variant
Dim stdat As Date
Dim endat As Date
dattym = Format(CStr(Now), "YYYY-mm-dd")
Set newworkbook = Workbooks.Add
With newworkbook
    .Title = file name
    .SaveAs Filename:="D:\localhome\username\Desktop\folder name\" & "Pjm Training Summary - " & dattym
    .Close
    
End With

[QUOTE]
[B]filetoopen = Application.GetOpenFilename(Title:="browse for your file & import range", Filefilter:="Excel Files(*.xls*),*xls*")[/B]
[/QUOTE]
If filetoopen <> False Then
    Set openbook = Application.Workbooks.Open(filetoopen)
End If

openbook.ActiveSheet.Range("A5").CurrentRegion.Copy
Workbooks.Open("D:\localhome\username\Desktop\folder name\" & "file name- " & dattym).Activate
'Range("A1").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, none

Range("A5").PasteSpecial xlPasteAllUsingSourceTheme, xlPasteSpecialOperationNone, none
Selection.Columns.AutoFit
ActiveWorkbook.Save
ActiveWorkbook.Close
Workbooks.Open Filename:=("D:\localhome\user name\Desktop\file name")
lcol = WorksheetFunction.CountA(Range("G3", Range("G3").End(xlDown)))
list = Range(Cells(3, 7), (Cells(lcol + 2, 7))).Value
list = Application.Transpose(list)
list = Join(list, ",")
list = Split(list, ",")
list = Split(Join(Application.Transpose(Range(Cells(3, 7), Cells(lcol + 2, 7)).Value), ","), ",")
Workbooks.Open Filename:=("D:\localhome\mariappana\Desktop\Pjm Training Summary")
stdat = ActiveWorkbook.ActiveSheet.Cells(3, 8).Value
endat = ActiveWorkbook.ActiveSheet.Cells(3, 9).Value
Workbooks.Open("D:\localhome\mariappana\Desktop\PJM Training Week March\" & "Pjm Training Summary - " & dattym).Activate
 
With Selection
    .AutoFilter Field:=14, Criteria1:=list, Operator:=xlFilterValues
    
    .AutoFilter Field:=17, Criteria1:="<=" & CDbl(endat), Operator:=xlAnd, Criteria2:=">=" & CDbl(stdat)
         
            
End With

Application.ScreenUpdating = False
    
Sheets.Add.Name = "Data"
Sheets(1).Range("A5").CurrentRegion

Selection.Copy Destination:=Sheets("Data").Range("A5")
Selection.Columns.AutoFit
'Worksheets("Data").Range("A2").Value = "title of report " & dattym

Selection.Copy Destination:=Sheets("Data").Range("A5")
Selection.Columns.AutoFit


End Sub

 

[Joe4]

I cannot reproduce that error. It goes on past that line and continues with the code when I test it out.

If there is an error, it should pop up, unless you suppressed messages.
Try running this little macro first, and then try running your code again:

Sub ResetThings()
    On Error GoTo 0
    Application.DisplayAlerts = True
End Sub