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
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