How to merge 2 codes that do the same thing for 2 separate cells into 1 code?

[danbates]

Hi,

Please could someone help me?

I have this following 2 codes that works fine but I was wondering how it can be made into 1 code?

Cells(Rows.Count, "A").End(xlUp).Select

Selection.ClearComments


With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
End With


With Selection.Font
        .Name = "Gill Sans MT"
        .Size = 11
End With
    
Cells(Rows.Count, "B").End(xlUp).Select


Selection.ClearComments


With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
End With


With Selection.Font
        .Name = "Gill Sans MT"
        .Size = 11
End With

Any help would be much appreciated.

Thanks

Dan

 

[mumps]

Try:

Sub test()
    With Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 2)
        .ClearComments
        With .Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        With .Font
            .Name = "Gill Sans MT"
            .Size = 11
        End With
    End With
End Sub

 

[Eric W]

If the last value in A and B could be on different rows, change the first line in Mumps' code to:

    With Union(Cells(Rows.Count, "A").End(xlUp), Cells(Rows.Count, "B").End(xlUp))

 

[danbates]

Hi mumps,

Perfect once again, thank you.

Regards

Dan

 

[mumps]

You are very welcome.