Best Approach To Formatting A Merged Range of Cells

[Ark68]

My goal:
Range AP2:AX2 cells filled with green, grouped (merged) range of cells with a white border. Of the full range , AP2:AW2 hold a string value. AX2 is empty as a cell on its own.

Data_Prep.xlsm
	AP	AQ	AR	AS	AT	AU	AV	AW	AX
2	RMR Ï								12:32:12
GUI_1

This is the image.

Here is the code I am trying, which works except for excluding AX2 independent of the merged AP2:AW2.

Any suggestions what I can do to improve the code to achieve the result I desire?

        With .Range("AP2:AX2")

              .Merge
              With .Borders
                   .LineStyle = xlContinuous
                   .Weight = xlThin
                   .Color = vbWhite
              End With
              .Interior.Color = RGB(0, 176, 80)

              .Range("AP2:AW2").Merge
              .Range("AP2").Value = st_cd
        End With
        .Range("AX2") = Format(Now, "h:mm:ss")

 

[Yongle]

Is this what you want ?

    .Range("AP2").Value = st_cd
    With .Range("AP2:AW2")
        .Merge
    End With
    .Range("AX2") = Format(Now, "h:mm:ss")
    With .Range("AP2:AW2,AX2")
        
        With .Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
            .Color = vbWhite
        End With
        .HorizontalAlignment = xlCenter
        .Interior.Color = RGB(0, 176, 80)
        .Font.Color = vbWhite
    End With

 

[Ark68]

It sure is Yongle!!
I appreciate you're having identifying and correcting my errors. It looks like I just simply had my process out of order, but I wouldn't have known without your help.

 

[Yongle]

Thanks for the feedback