<div>
Try this.<br />

<pre><code id="code-20-40031000-1">Dim ws As Worksheet
Dim I As Long

    For I = 2 To 6

        Set ws = Worksheets(I)

        ws.Range(&quot;A:R&quot;).ColumnWidth = 39

        ws.Rows.RowHeight = 17

    Next I</code></pre>
</div>


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

<div>
Perfect thanks.<br />
<br />
Will this effect merged cells?
</div>


Perfect thanks.

Will this effect merged cells?

<div>
<div class="content wysiwyg-content">
I would like to set all the cells in my worksheet to:<br />
cell height 17<br />
And for A to R width 39. <br />
<br />
Also I would like to do this for multiple worksheets. For example tabs across the bottom from 2 to 6.
</div>
</div>


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.

Cell width and height

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.