locked
HOW TO MAKE IT FASTER RRS feed

  • Question

  • Hi,

    I have 4 lines like this     "Range("22:22,29:29,32:32,35:35,40:40,42:42,45:45,48:48,51:51,54:54,59:59,62:62,64:64,66:66,69:69,72:72,74:74").Select
        Selection.RowHeight = 8.25
        Selection.Font.Size = 8"

    They make slower to run. Any other way to perform same this with faster speed ?

    regards

    Sunday, October 11, 2015 5:47 PM

Answers

  • Try this version:

        Application.ScreenUpdating = False
        With Range("A22,A29,A32,A35,A40,A42,A45,A48,A51,A54,A59,A62,A64,A66,A69,A72,A74").EntireRow
            .RowHeight = 8.25
            .Font.Size = 8
        End With
        Application.ScreenUpdating = True


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    • Proposed as answer by ryguy72 Monday, October 12, 2015 6:33 PM
    • Marked as answer by drsantoshsinghrathore Wednesday, October 14, 2015 1:08 PM
    Sunday, October 11, 2015 8:18 PM

All replies

  • Try this version:

        Application.ScreenUpdating = False
        With Range("A22,A29,A32,A35,A40,A42,A45,A48,A51,A54,A59,A62,A64,A66,A69,A72,A74").EntireRow
            .RowHeight = 8.25
            .Font.Size = 8
        End With
        Application.ScreenUpdating = True


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    • Proposed as answer by ryguy72 Monday, October 12, 2015 6:33 PM
    • Marked as answer by drsantoshsinghrathore Wednesday, October 14, 2015 1:08 PM
    Sunday, October 11, 2015 8:18 PM
  • Thank you Hans Vogelaar ,

    regards

    Wednesday, October 14, 2015 1:07 PM