Macro Help please

[knowexcel]

I have few workbooks in a folder. I would like to rename each sheet, resize image and modify text style in particular cell in all workbooks in the folder. Could some one please let me know how to do it?

Thanks

 

[Trevor G]

Ok give us a clue.

Is this to be done in each workbook in a folder or specific workbooks if so please supply the names.

Which sheets are to be renamed (From what, to what), which sheet as the image, does it have a name. which cell do you want to format and what is the format you want.

 

[knowexcel]

Thanks for the reply. It has to be done in all workbooks in a folder. Each work book has 3 sheets, i want to rename all sheets. Image should be same size on all sheets, image has a name. I want to display data in one cell vertically on each sheet.

Thanks

 

[Trevor G]

Here is some code that will loop through all workbooks in a folder and make a change, you can adapt it as necessary.

Sub Open_My_Files()
Dim MyFile As String
MyPath = "M:\Access Files\"
MyFile = Dir(MyPath)
Do While MyFile <> ""
If MyFile Like "*.xls" Then
Workbooks.Open MyPath & MyFile
Sheets(1).Select 'Add code here to rename each sheet, you can record a macro to give you the code then add it here.
Range("C3") = 6 'Alter the cell id to change the format, again you can record a macro to do this and copy the code here.
ActiveWorkbook.Close True
End If
MyFile = Dir
Loop
End Sub

 

[knowexcel]

Thanks it is helpful