code run step by step but not in run time

[vijaybhatt]

Sub OpenFiles()






Dim ws As Worksheet
Dim MyFolder1 As String
Dim MyFile1 As String
Dim MyFolder2 As String
Dim MyFile2 As String
Dim i As Integer
ThisWorkbook.Sheets("CHE Inventory data").Activate


Range("A3", Range("A3").End(xlDown)).Select
Range(Selection, Selection.Offset(0, 25)).Select


Selection.ClearContents
Sheets("ADR").Select
Range("A3", Range("A3").End(xlDown)).Select
Range(Selection, Selection.Offset(0, 10)).Select
Selection.ClearContents




MyFolder = "Z:\MCT\Vijay\CHE Data\CHE Summary Data"


myfile = Dir(MyFolder & "\*.xls")
Workbooks.Open Filename:=MyFolder & "\" & myfile, _
Password:="**indiamissioncontrolteam2012***"
myfile = Dir
For i = 1 To Sheets.Count
Windows("CHE Summary data.xlsx").Activate
Sheets(i).Activate
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy


ThisWorkbook.Sheets(i).Activate
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues




Next
MsgBox "OK"
'Application.CutCopyMode = False
'Windows("CHE Summary data.xlsx").Close




Application.CutCopyMode = True
'STEP1lookupbsoUSER.STEP1lookupbsoUSER
End Sub




this code is not run when i click on run button but when i do f8 step by step its work perfect help me please

 

[ImranMalek]

Hi Vijay,
What happens when you run the sub OpenFiles ?
If the code doesn't run then it should give you some error.

 

[vijaybhatt]

First times its copy whatever I want but second tims its not running. But when I do step by step using f8 its run perfectly

 

[vijaybhatt]

No there is no err Imran. its wroking fine when i debug it with F8 but when i run its coping only 1 time not my second sheet

 

[Dryver14]

Thisworkbook is the workbook that contains the code so when you open another book to work on you need to refer to activeworkbook not this workbook.

 

[vijaybhatt]

Thisworkbook is the workbook that contains the code so when you open another book to work on you need to refer to activeworkbook not this workbook.

its not copying data from sheet 2. while first time when sheet 1 data paste perfect.

 

[vijaybhatt]

i have tried to change with the name of the workbook also but still same issue can u please work with this code and do some changes for need full.

 

[Dryver14]

I would still try forgetting thisworkbook and thatworkbook.

use the workbook name and then there is no room for error and the macro knows exactly what it is doing

 

[vijaybhatt]

I have tried change workbook name. But still only 1 sheet copy. And second sheet is not copying. But wjen I do f8 step by step its not working for sexond sheet

 

[vijaybhatt]

I would still try forgetting thisworkbook and thatworkbook.

use the workbook name and then there is no room for error and the macro knows exactly what it is doing

again same problem kindly look into the code and help me.