Thread: Excel Macro Causing the Formatting to change to Default
View Single Post
 
Old 03-29-2015, 05:21 PM
ubns ubns is offline Windows 7 32bit Office 2010 32bit
Competent Performer
  
Join Date: Apr 2012
Posts: 177
ubns is on a distinguished road
Default
AutoFit Function is the below. What can I change in this so that it does not change to default formatting.

Code:
Public Sub AutofitRows()
    Dim rng As Range
    Set rng = ThisWorkbook.Worksheets("projectandbau").Rows("1:5000")
    rng.Autofit
       
End Sub
Reply With Quote