Horizontal / Vertical Alignment not Working

[Guzzlr]

For Each sht In ActiveWorkbook.Worksheets
    If (sht.Name = "Recovery") And (sht.Name = "Revisions") Then
    sht.Activate
        With Range("A7:AV3000")
            .Clear
            .NumberFormat = "General"
            .Interior.Pattern = xlNone
            Range("B6") = "Document Number"
            Range("B6").Interior.ColorIndex = 6
            Range("C6") = "Start"
            Range("C6").Interior.ColorIndex = 4
            Range("D6") = "Finish"
            Range("D6").Interior.Color = RGB(255, 157, 91)
        End With
        With Columns("A:D")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            Columns("B:D").ColumnWidth = 19.01
            .Font.Name = "Calibri"
            .Font.Size = 12
        End With
    
    End If
Next sht

Hello All,
My code above, the section about Columns"A:D" is not working, and I don't know why?
What am I doing wrong?
Thanks for the help
excel 2013

 

[Marcelo Branco]

A sheet name cannot be at once equal to Recovery and equal to Revisions

If (sht.Name = "Recovery") [COLOR=#ff0000]And[/COLOR] (sht.Name = "Revisions") Then

I think you should use a OR instead of AND

M.

 

[Guzzlr]

A sheet name cannot be at once equal to Recovery and equal to Revisions

If (sht.Name = "Recovery") [COLOR=#ff0000]And[/COLOR] (sht.Name = "Revisions") Then

I think you should use a OR instead of AND

Ahh...Thanks