Change Cells in all the worksheets in Multiple Workbook

[gunjan8882]

Dear all,

I need to modify the below code in order to assign the particular cell number in sequential order to all the worksheets exists in the workbook. However, the name and no. of worksheets in each workbook are different. Hence, i cannot define the worksheet name.

Please help me.

Private Sub CommandButton5_Click()
Dim oFSO
Dim Folder As Object
Dim Files As Object
Dim file As Object
Dim Pageno As Integer
Pageno = 384
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set Folder = oFSO.GetFolder("J:\datafolder")
For Each file In Folder.Files
If file.Type Like "*Microsoft Excel*" Then
Workbooks.Open Filename:=file.Path
Sheets("Module (LTCS)").Select
On Error Resume Next
ActiveSheet.Range("CA144").Select
ActiveCell.Value = Pageno
Sheets("Module (LT)").Select
On Error Resume Next
ActiveSheet.Range("CI143").Select
ActiveCell.Value = Pageno + 1
ActiveWorkbook.Close SaveChanges:=True
End If
Pageno = Pageno + 2
Next file
Set oFSO = Nothing
End Sub

Regards,
GD

 

[gunjan8882]

Hello guys,

Could you please help me with the below query.

Thanks in advance.

Regards,
GD

 

[gunjan8882]

Hello guys,

Could you please help me with the below query.

Thanks in advance.

Regards,
GD