convert Text to Number in multiple sheets simultaneously

[CCH_MIA]

Hello all!
I am trying to select multiple sheets and convert the text to number in all of them simultaneously but everytime I run the macro only the first one does it. Any feedback on this code please?

Sheets(Array("Countries_Send", "Countries_Receive", "Party_Send", "Party_Receive", _
"Info_Combined_Send", "Info_Combined_Receive")).Select
Cells.Select
Selection.UnMerge

Dim rUsedRange As Range
Sheets(Array("Countries_Send", "Countries_Receive", "Party_Send", "Party_Receive")).Select
Cells.Select
For Each rUsedRange In Intersect(ActiveSheet.UsedRange, Selection).Areas
rUsedRange.Value = rUsedRange.Value
Next rUsedRange

End Sub

 

[AlphaFrog]

I don't think you can do it "simultaneously", but you could loop through each sheet like this...

    [color=darkblue]Dim[/color] ws [color=darkblue]As[/color] Worksheet
    
    [color=darkblue]For[/color] [color=darkblue]Each[/color] ws [color=darkblue]In[/color] Sheets(Array("Countries_Send", "Countries_Receive", "Party_Send", "Party_Receive", _
                                "Info_Combined_Send", "Info_Combined_Receive"))
        ws.Cells.UnMerge
        ws.UsedRange.Value = ws.UsedRange.Value
    [color=darkblue]Next[/color] ws

 

[CCH_MIA]

Thank you so much AlphaFrog. It works beautifuly