Solved

Excel - Row Height +1 VBA

Posted on 2016-11-17
2
24 Views
Last Modified: 2016-11-21
Hi Experts,
I need VBA to increase all rows in my table by  +3

>>>>> This is my table
   >>>>>>>>>>>      Range("Table1").Select

All the rows are not the same height, but I want them all to increase by a set value.
And after I print the sheet, I will select all the same rows again and decrease them all by the same amount.

Thanks so much
Chris
0
Comment
Question by:chris pike
2 Comments
 
LVL 26

Accepted Solution

by:
MacroShadow earned 500 total points
ID: 41892223
Try this
Sub Demo()
    Dim row As Range
    For Each row In Range("Table1").Rows
        row.RowHeight = row.RowHeight + 3
    Next row
End Sub

Open in new window

0
 

Author Closing Comment

by:chris pike
ID: 41895972
Awesome thanks
0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Suggested Solutions

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
This is an Add-On procedure to be used in conjunction with the code provided in Reducing EE Email Clutter using Outlook (http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/A_3146-Outlook-Processing-EE-emails-on-Receive.…
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.

746 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

13 Experts available now in Live!

Get 1:1 Help Now