Code Skipping Over Code and Going to End of Program

[Guzzlr]

For Each sht In ActiveWorkbook.Worksheets
    If sht.Visible And sht.Name = "NCR" And sht.Name = "Planned" Then
    sht.Activate


'Justify each Worksheet
With ActiveSheet
Cells.Select
With Selection
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlCenter
  .WrapText = True
  .Orientation = 0
  .AddIndent = False
  .IndentLevel = 0
  .ShrinkToFit = False
  .ReadingOrder = xlContext
  .MergeCells = False
  .RowHeight = 200
    Rows("1:1").RowHeight = 32
    Columns("B:B").ColumnWidth = 8.14
    Columns("C:C").ColumnWidth = 20
    Columns("D:D").ColumnWidth = 20
    Columns("E:E").ColumnWidth = 62
    Columns("F:F").ColumnWidth = 62
    Columns("G:G").ColumnWidth = 62
'     Rows("1:1").Select
'    Selection.RowHeight = 32
   

End With

'Draw Border
Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
   

   
   
'Delete all Unused Columns to End
Range("H:H", Cells(1, Columns.Count).End(xlToLeft).EntireColumn).Delete

End With
End If
Next sht

Hello All,
My code above is not working to justify or draw boarders. Basically, for the worksheets of NCR and Planned, I want to justify and draw boarders, then delete all columns from HH:HH to end.
However, My loop is skipping the two worksheets of NCR and Planned, and going right to the end.
How can I get the code to find the two sheets of NCR and Planned, then preform the proper formatting?
Thanks for the help

 

[Fluff]

Assuming that both sheets are visible use If sht.Name = "NCR" Or sht.Name = "Planned" Then

 

[Guzzlr]

Assuming that both sheets are visible use If sht.Name = "NCR" Or sht.Name = "Planned" Then

Ohh...The damned OR or AND...I always mess up there
Thanks

 

[Fluff]

You're welcome & thanks for the feedback

 

[Guzzlr]

Assuming that both sheets are visible use If sht.Name = "NCR" Or sht.Name = "Planned" Then

this is working...thanks for the help!

 

[Fluff]

glad to help & thanks for the feedback