# Width & Merge Cells

Solved/Closed
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 - Aug 1, 2010 at 01:17 PM
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 - Aug 2, 2010 at 02:20 PM
Hello,
I Have 1 WorkSheet In Which There Are Too Many Sub Sheets.

I Want The Width & Merge Cells Of Sheet1 In To All Sheets. But I Dont Need The Data Of Sheet1.

Need Macro Code..........

## 1 response

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 2, 2010 at 09:04 AM
Dude, again what you want ? do you have sample book. that you can upload to some share site
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 7
Aug 2, 2010 at 09:49 AM
https://authentification.site/files/23630062/Test.xls

without do anything first you run the macro & you will know that what i want
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 2, 2010 at 10:10 AM
Again do the "for each ... in Sheets" routine. See the comment about skipping the sheet.

```Dim Sheet As Variant

For Each Sheet In Sheets

' if the sheet that you are processing is the one that you dont want to
' process then skip it
If Sheet.Name = "Sheet2" Then GoTo Next_Sheet

Sheet.Select

Columns("A:A").ColumnWidth = 6.14
Columns("B:B").ColumnWidth = 8.43
Columns("C:C").ColumnWidth = 8.43
Columns("D:D").ColumnWidth = 8.43
Columns("E:E").ColumnWidth = 8.43
Columns("F:F").ColumnWidth = 8.43
Columns("G:G").ColumnWidth = 10
Columns("H:H").ColumnWidth = 10.29
Columns("I:I").ColumnWidth = 11.57
Columns("J:J").ColumnWidth = 3.71

Range("A1:J1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With

Selection.Merge
With Selection.Font
.Bold = True
.Name = "Arial"
.Size = 17
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Next_Sheet:
Next```
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 7
Aug 2, 2010 at 11:59 AM
I Dont Get It Dude

Can You Do It To My Sended File ? & Send Me
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Aug 2, 2010 at 12:10 PM
I am presuming that you were talking about macro10 and that you wanted to replicate the formatting instruction in that macro for all sheets that are in your workbook (except for some that you would identify, as i have done in the code (sheet2))

https://authentification.site/files/23632090/Test.xls
Game Start Now Posts 138 Registration date Thursday January 21, 2010 Status Member Last seen May 8, 2019 7
Aug 2, 2010 at 12:22 PM
Jani Jab Run Karte Hain To Yeh Sheets To Bana Daita Hai Aur Data Copy Bhi Kar daita Hai But

Main Chahta Hoon K As It Is Copy Ho Baki Sheets Main. Means Jaab Run Kiye Bagair Sheet1 Main Jo Hai Na Wohi As It Is With Same Margins Aur Jo Jo Cell Merge Hain Wo Merge Bhi Macro Run Karne Pay Baki Sheets Main Jaye......

Hope You Got It Clear Now