i need help with selecting worksheets and columns

TLS49

Board Regular
Joined
Nov 26, 2019
Messages
118
Office Version
  1. 365
Platform
  1. Windows
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", _
"16", "17", "18")).Select

Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I,K:K").Select

i am trying format sheets and columns in all at once give me yellow highlight
Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I,K:K").Select

how get work


Thanks you
 

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.

TLS49

Board Regular
Joined
Nov 26, 2019
Messages
118
Office Version
  1. 365
Platform
  1. Windows
VBA Code:
[FONT=Calibri]Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", _
        "16", "17", "18")).Select
 
Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I,K:K").Select
 
       With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
 
 
Selection.Columns.AutoFit[/FONT]
 

johnnyL

Well-known Member
Joined
Nov 7, 2011
Messages
3,823
Office Version
  1. 2016
  2. 2013
  3. 2007
Platform
  1. Windows
How about:

VBA Code:
    Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", _
            "16", "17", "18")).Select
    Range("A:I,K:K").Select
'
    With Selection
        .Interior.Color = RGB(255, 255, 0)
        .HorizontalAlignment = xlCenter
        .Columns.AutoFit
    End With
 

johnnyL

Well-known Member
Joined
Nov 7, 2011
Messages
3,823
Office Version
  1. 2016
  2. 2013
  3. 2007
Platform
  1. Windows
Code, as I posted, works for me. What line gives you the error?
 

johnnyL

Well-known Member
Joined
Nov 7, 2011
Messages
3,823
Office Version
  1. 2016
  2. 2013
  3. 2007
Platform
  1. Windows
a youtube video?
 

johnnyL

Well-known Member
Joined
Nov 7, 2011
Messages
3,823
Office Version
  1. 2016
  2. 2013
  3. 2007
Platform
  1. Windows
The link you provided is to a youtube video.
 

Forum statistics

Threads
1,176,262
Messages
5,902,216
Members
434,950
Latest member
hughsiepops

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top