Loop with Letters instead of numbers 1

[vba317]

I an trying to reformat my spreadsheet. I want to write a for next loop based on letters instead of numbers is this possible? I get a compile error on my current loop.

Dim C1 As String

For C1 = "A" To "R"
 Columns("C1").Select
   With Selection
   .Columns.AutoFit
   .VerticalAlignment = xlCenter
   .HorizontalAlignment = xlRight
  End With
                                    
Next C1

 

[SkipVought]

hi.

For C1 = cells(1, "A").column To cells(1, "R").column
  with Columns(C1)
   .Columns.AutoFit
   .VerticalAlignment = xlCenter
   .HorizontalAlignment = xlRight
  End With
                                    
Next C1

or better yet...

  with Range(cells(1, "A").column To cells(1, "R")).entirecolumn
    .Columns.AutoFit
   .VerticalAlignment = xlCenter
   .HorizontalAlignment = xlRight
  End With
                                    
Next C1

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

oops or better yet (no to)

  with Range(cells(1, "A").column, cells(1, "R")).entirecolumn
    .Columns.AutoFit
   .VerticalAlignment = xlCenter
   .HorizontalAlignment = xlRight
  End With

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[vba317]

Does this code eliminate the need for the for next loop? Or does this code go within the for next loop?

Tom

 

[vba317]

Skip,

I used the following code

 With Range(Cells(1, "A").Column, Cells(1, "R")).EntireColumn
                                    .Columns.AutoFit
                                    .VerticalAlignment = xlCenter
                                    .HorizontalAlignment = xlRight
                                     End With

I got a runtime error 1004
Method range of object global failed

 

[ItIsHardToProgram]

 With [red]Range(cells(1, "A").column, cells(1, "R")).entirecolumn[/red]

This part loops from A to R, so it dosnt need a FOR/NEXT loop.

"Knowing that you know is the greatest sign of stupidity, knowing that you are ignorant is the best proof of intelligence.

 

[SkipVought]

With Range(Cells(1, "A"), Cells(1, "R")).EntireColumn
                                    .Columns.AutoFit
                                    .VerticalAlignment = xlCenter
                                    .HorizontalAlignment = xlRight
                                     End With

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[vba317]

Once again I thank you Skip for all your help. I am starting to see an end to my project. I thank you for your patience.

Tom