Solved

Cell width and height

Posted on 2014-04-29
3
261 Views
Last Modified: 2014-04-29
I would like to set all the cells in my worksheet to:
cell height 17
And for A to R width 39.

Also I would like to do this for multiple worksheets. For example tabs across the bottom from 2 to 6.
0
Comment
Question by:WTC_Services
  • 2
3 Comments
 
LVL 33

Expert Comment

by:Norie
Comment Utility
Try this.
Dim ws As Worksheet
Dim I As Long

    For I = 2 To 6

        Set ws = Worksheets(I)

        ws.Range("A:R").ColumnWidth = 39

        ws.Rows.RowHeight = 17

    Next I

Open in new window

0
 

Author Comment

by:WTC_Services
Comment Utility
Perfect thanks.

Will this effect merged cells?
0
 
LVL 33

Accepted Solution

by:
Norie earned 500 total points
Comment Utility
If you mean will the cells that are merged have their row and height changed then yes, but the cells will still stay merged.
0

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Suggested Solutions

Improved? Move/Copy Add-in Replacement - How to avoid the annoying, “A formula or sheet you want to move or copy contains the name XXX, which already exists on the destination worksheet.” David Miller (dlmille)  It was one of those days… I wa…
This tutorial explains how to create a series of drop-down lists that are dependent upon prior selections to guide (“force”) the user to make the correct selection and reduce data errors within Microsoft Excel. Excel 2010 was used for this tutorial;…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

7 Experts available now in Live!

Get 1:1 Help Now