##### User Posts: Mursalin Ibne Salehin

In this article, we will learn to copy the above cell in Excel. Sometimes, users need to copy the value of the above cell to fill a cell in Excel. For example, ...

In this article, we will learn to create a questionnaire in Excel. A questionnaire is a set of questions or specific items with options. It is used to collect ...

In this article, we will learn to convert the alphabet to number in Excel. In Excel, we can use different functions to change an alphabet to a number. Today, ...

In this article, we will learn to extract data from an XML file to Excel. The XML format is mainly used on the web to store data. Also, we can save it on our ...

In this article, we will demonstrate anchoring the comment boxes in Excel. Anchoring comment boxes in a specific location is a tricky task. In Excel 365, ...

In this article, we will learn to calculate the variance inflation factor in Excel. It is also expressed as VIF. Variance Inflation Factor or VIF detects the ...

In this article, we will learn to find the discrete probability distribution in Excel. A discrete probability distribution indicates the probability of the ...

In this article, we will learn to create a real estate balance sheet in Excel. A real estate balance sheet is a financial report that reflects the net worth of ...

In this article, we will learn to perform floating rate bond valuation in Excel. The floating rate bond pays coupons that vary over their maturity. The ...

In this article, we will learn to use ANOVA two factor without replication in Excel. Microsoft Excel is a powerful tool and makes complicated calculations ...

In this article, we will learn the advanced uses of the CHOOSE function in Excel. The CHOOSE function returns a value from a list using a specified position or ...

In this article, we will learn to create an average daily balance calculator in Excel. Credit card companies use the Average Daily Balance Method to charge ...

In this article, we will learn to swap text in Excel. Sometimes, an Excel sheet may contain texts in the wrong order. To understand them, you need to swap text ...

In this article, we will learn to use the VLOOKUP function with criteria in the column and row in Excel. The VLOOKUP function looks for a value in the leftmost ...

In this article, we will learn to use the COUNTIFS function with multiple criteria and OR logic in Excel. The COUNTIFS function counts the number of cells that ...

- 1
- 2
- 3
- …
- 11
- Next Page »

Hi JUN,

Thanks for your comment. I assume you are having this problem because Excel considers

1(‘dataset’!=”1″)as a number. You don’t need to add the double quotation symbol for that part. So, an error occurs and it is showing “–” instead of “A“. You can use the formula below to get “A“:`=IFERROR((INDEX(datasheet!C:C,MATCH(1,(datasheet!A:A=1)*(datasheet!B:B="a")*(datasheet!D:D="22/8/1"),0))),"-")`

To get “

B“, use the formula below:`=IFERROR((INDEX(datasheet!C:C,MATCH(1,(datasheet!A:A=2)*(datasheet!B:B="b")*(datasheet!D:D="22/8/1"),0))),"-")`

And to get “

C“, you can use the formula below:`=IFERROR((INDEX(datasheet!C:C,MATCH(1,(datasheet!A:A=3)*(datasheet!B:B="c")*(datasheet!D:D="22/8/1"),0))),"-")`

For your convenience, I have attached the excel file below with the formulas that I have used. I have used the formulas in

Excel 365.Download Excel FileI hope this will help you to solve your problem. If you still find any problem in your excel file, then you can send it to [email protected]. I will take a look and email you the solution.

Thanks!

Hi RICK,

Thanks for your comment. Unfortunately, there is no similar

VBAcode forMicrosoft Word. You need to use theVBAinExcelto get the barcode usingCode 128. But you can follow the link below to use code 128 barcode font inMicrosoft Word.https://www.exceldemy.com/print-barcode-labels-in-excel/#Step_4_Generating_and_Printing_Barcode_Labels

I hope this will help you to solve your problem. Please let us know if you face any other issues.

Thanks!

Hi MYLES,

Thanks for your comment. We are very glad to know that we could be of help to you. Let us know if you have any queries.

Good luck.

Hi FREEJOJOEY,

Sorry to hear about your problem. I am replying to you on behalf of Exceldemy. The

Developertab is not included in the ribbon by default. But you can easily add it. To add theDevelopertab, please the steps of the link below:Get Developer TabAfter inserting the

Developertab, follow the steps of the article. If you follow the steps correctly, you will get the scannable barcodes. You must insert theVBAusing theDevelopertab as stated inSTEP 2for getting the correct characters.Thanks!

Hi STEPHEN,

Thanks for reaching out to us. I am replying to you on behalf of Exceldemy. We will be happy to help you.

Please send the

Excelfile to [email protected]. Also, mention what you want to update in theExcelfile. We will try to give the solution as early as possible.Thanks!

Hi KIERAN,

Thanks for your comment. This is Mursalin from Exceldemy. I am not quite sure why you are getting a barcode that is not scannable. Because in my case, after changing the text to

Code 128, I am getting the desired scannable barcode.It will be helpful for me if you provide the

Excelfile or an image in the comment section. Or you can send the Excel file to [email protected]. I hope I can give a solution after watching the file.Thanks!

Hi KATIA,

Thanks for your comment. I am replying to you on behalf of Exceldemy. To find the average, you can use the

AVERAGEfunction. ForMethod 1, you can follow the steps below.STEPS:1. Firstly, select

Cell F5and type the formula below:`=AVERAGE(C4:INDEX(C4:C12,E4))`

2. Press

Enterto see the result.3. Secondly, select the

range B3:C12.4. Press

Ctrl + Tto convert the range into a table.5. A message box will appear.

6. Click

OKto proceed.7. As a result, you will see a table like the picture below.

8. Now, if you add

Oct-15inCell B13, then the table and formula ofCell F5will automatically update.For

Method 2, you can follow the above steps and use the formula below:`=AVERAGE(OFFSET(B4,0,0,1,-MONTH(B3)):B4)`

For

Method 3, use the formula below and convert the range into a table:`=AVERAGEIFS(C4:C17, B4:B17, ">="&B4, B4:B17, "<="&F5)`

You can also find the formulas in the workbook below:

Workbook with AVERAGE Formulas.xlsxI hope this will help you to solve your problems. Please let us know if you have other queries.

Thanks!

Hi BEN,

Thanks for your comment. I am replying to you on behalf of Exceldemy. To know more about copying formulas across cells, you can check the link below.

Copy Formulas Across CellsThanks!

Hi JESSICA,

Thanks for your comment. I am replying to you on behalf of Exceldemy. You can check the comment thread for the answer. Also, to know more about copying formulas across cells, you can check the link below.

Copy Formulas Across CellsThanks!

Hi ROBYN,

Thanks for your comment. I am replying to you on behalf of Exceldemy. To get the results across the cells, you need to drag the

Fill Handleto the right side and make the necessary changes if needed. Suppose, we also need thePricealong with the products. We can get the prices using some steps. Let me show you the process in the steps below.STEPS:1. Firstly, put the cursor on the bottom corner of

Cell F8. It will turn into a small plus sign.2. Now, drag the

Fill Handleto the right toCell G8.3. It will show the same result and formula because the

range D5:D12is locked.4. Now, select

Cell G8and go to theFormula Bar.5. Type

`$C$5:$C$12`

in place of`$D$5:$D$12`

becauseColumn Ccontains the prices.6. Press

Enter.7. After that, drag the

Fill Handledown.8. Finally, you will see the prices of the products.

To know more about copying formulas across cells you can check the article below.

Copy Formula Across CellsI hope this will help you to solve your problem. Please let us know if you have other queries.

Thanks!

Hi JOJO,

Thanks for your comment. I am replying to you on behalf of Exceldemy. You can use

VBAto remove texts that have strikethrough in them. Suppose, you have some text strings like the picture below:Let’s follow the steps below to remove the texts with a strikethrough.

STEPS:1. Firstly, go to the

Developertab and click on theVisual Basicoption.2. Secondly, select

Insert >> Moduleto open theModulewindow.3. Now, copy the code below and paste it into the

Modulewindow:`Sub Remove_Strike_through_Texts()`

`Dim iRng As Range, iCell As Range`

`Dim iStr As String`

`Dim X As Long`

`On Error Resume Next`

`Set iRng = Application.InputBox("Please select range:", "Microsoft Excel", _`

`Selection.Address, , , , , 8)`

`If iRng Is Nothing Then Exit Sub`

`Application.ScreenUpdating = Fase`

`For Each iCell In iRng`

`If IsNumeric(iCell.Value) And iCell.Font.Strikethrough Then`

`iCell.Value = ""`

`ElseIf Not IsNumeric(iCell.Value) Then`

`For X = 1 To Len(iCell)`

`With iCell.Characters(X, 1)`

`If Not .Font.Strikethrough Then`

`iStr = iStr & .Text`

`End If`

`End With`

`Next`

`iCell.Value = iStr`

`iStr = ""`

`End If`

`Next`

`Application.ScreenUpdating = True`

`End Sub`

4. Press

Ctrl + Sto save the code.5. After that, go to the

Developertab and selectMacros.6. In the

Macrowindow, select the desired code andRunit.7. A message box will appear.

8. Select the range from where you want to remove the strikethrough texts.

9. Finally, click

OKto proceed.10. As a result, the texts with strikethrough will be removed.

I hope this will help you to solve your problem. Please let us know if you have other queries.

Thanks!

Hi CHRIS,

Thanks for your comment. I am replying to you on behalf of Exceldemy. We can use

VBAto loop through rows of data and extract the desired data.For example, we will use a VBA to look for the marks of a specific student in the datasheet, copy them and paste the marks into the reportsheet. You can see the marks of all students in the picture below:

We will copy the marks of a specific student and paste them into the reportsheet.

For that purpose, you can use the code below:

`Sub Loop_Through_and_Extract_Data()`

`Dim datasheet As Worksheet 'From where data will be copied`

`Dim reportsheet As Worksheet 'where data will be pasted`

`Dim StudentName As String`

`Dim finalrow As Integer`

`Dim i As Integer 'row counter`

`'set variables`

`Set datasheet = Sheet1`

`Set reportsheet = Sheet3`

`StudentName = reportsheet.Range("F5").Value 'Cell F5 of reportsheet contains the student name`

`'clear old data`

`reportsheet.Range("B5:D200").ClearContents`

`'go to datasheet and start searching and copying`

`datasheet.Select`

`finalrow = Cells(Rows.Count, 1).End(xlUp).Row`

`'loop through rows to find matching records`

`For i = 2 To finalrow`

`If Cells(i, 1) = StudentName Then 'if the name matches, then copy`

`Range(Cells(i, 1), Cells(i, 3)).Copy 'copy columns 1 to 3 (A to C)`

`reportsheet.Select 'go to reportsheet`

`Range("B200").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll 'paste values in the reportsheet`

`datasheet.Select 'go back to datasheet and continue searching`

`End If`

`Next i`

`reportsheet.Select`

`Range("A1").Select`

`End Sub`

I have also attached the

Excelfile below:Loop Through Rows.xlsmI hope this will help to solve your problem. Please let us know if you have other queries.

Thanks!

Hi DAWID,

Thanks for your comment. Sorry to hear that you are not getting the desired output. I have tried to convert

192697and194898to barcodes using the same code. In my case, it worked. You can see the result below:I am also attaching the

Excelfile below:Answer.xlsmMoreover, the

VBAcode is not error-free. It can introduce errors sometimes. You can copy the code and paste it into a new workbook. It may help you to get the desired results.I hope this will help you to solve your problem. Please let us know if you have other queries.

Thanks!

Hi AHMETCAN,

Thanks for your comment. I am replying to you on behalf of Exceldemy. To get all the desired values from the list, you need to drag the

Fill Handledown to copy the formula. You can follow the steps below to get all the values.STEPS:1. Firstly, select

Cell C7and type the formula below:`=IF(OR(COUNTIF(B7,"*"&$E$7:$E$8&"*")),B7,"")`

2. Press

Enterto see the result.3. Thirdly, move the cursor to the bottom right corner of

Cell C7, it will turn into a small black plus sign.4. Now, drag the

Fill Handledown toCell C16.5. Finally, you will see results like the picture below.

I hope this will help you to solve your problems. Please let us know if you have other queries.

Thanks!

Hi MIKE M,

Sorry for the late reply. I am replying to you on behalf of Exceldemy. You can mail your problem to [email protected]. Our team will take a look and try to give a solution to your problem.

Thanks!

Hi KARTHIKA,

Thanks for your comment. To insert checkboxes without shortcuts, you can follow the steps below:

STEPS:1. Go to the

Developertab and click on theInsertoption.2. A drop-down menu will appear.

3. You can select the checkbox from the â€ś

Form Controlsâ€ť section.If you donâ€™t find the

Developertab in the ribbon, then you need to add it from theCustomize the Ribbonoption. You will find the detail in the link below:https://www.exceldemy.com/add-a-checkbox-in-excel/#2_Steps_to_Add_a_Checkbox_in_Excel

I hope this will help you to solve your problem. Please let us know if you have any other queries.

Thanks!

Hi PETE,

Thanks for your comment. I am replying on behalf of Exceldemy. To paste the values, you can try the code below:

`Sub Copy_Data_from_Another_Workbook()`

`Dim wb As Workbook`

`Dim newwb As Workbook`

`Dim rn1 As Range`

`Dim rn2 As Range`

`Set wb = Application.ActiveWorkbook`

`With Application.FileDialog(msoFileDialogOpen)`

`.Filters.Clear`

`.Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"`

`.AllowMultiSelect = False`

`.Show`

`If .SelectedItems.Count > 0 Then`

`Application.Workbooks.Open .SelectedItems(1)`

`Set newwb = Application.ActiveWorkbook`

`Set rn1 = Application.InputBox(prompt:="Select Data Range", Default:="A1", Type:=8)`

`wb.Activate`

`Set rn2 = Application.InputBox(prompt:="Select Destination Range", Default:="A1", Type:=8)`

`rn1.Copy`

`rn2.PasteSpecial xlPasteValues`

`newwb.Close False`

`End If`

`End With`

`End Sub`

Here, we have used the code of

Method 1. We changed the highlighted lines to copy and paste only the values.I hope this will help you solve your problem. Please let us know if you have any other queries.

Thanks!

Hi EVAGGELOS,

Thanks for your comment. I am replying on behalf of Exceldemy. Unfortunately, you canâ€™t stop the update at a given time. But you can stop it instantly using a slightly different code and keyboard shortcut. You can follow the steps below for that purpose.

STEPS:1. Copy and Paste the code in the

Modulewindow:`Public RunWhen As Double`

`Sub UpdateCell()`

`RunWhen = Now + TimeValue("00:00:05")`

`Application.OnTime RunWhen, "UpdateCell"`

`Application.Calculate`

`End Sub`

`Sub StopUpdate()`

`On Error Resume Next`

`Application.OnTime RunWhen, "UpdateCell", , False`

`End Sub`

2. Press

Ctrl+Sto save it.3. Now, press

Alt+F8to open theMacrowindow.4. Select

StopUpdatefrom there and then, click onOptions. It will open theMacro Optionsbox.6. In the

Macro Optionsbox, typeKin the â€śShortcut Keyâ€ť field.7. Then, click

OKto proceed.8. Now, run the

UpdateCellcode.9. To stop updating, press

Ctrl+Kand the update will be stopped.I hope this will help you solve your problem. Please let us know if you have any other queries.

Thanks!

Hi A V S S PRASAD,

Sorry for the late reply. I am replying to you on behalf of Exceldemy. To match the addresses, you need to use the

INDEX-MATCHfunctions. You will find similar formulas in the articles below.https://www.exceldemy.com/index-match-multiple-criteria-partial-text/

https://www.exceldemy.com/index-match-partial-match/

I hope this will help you to solve your problem.

Thanks!

Hi TONY O’BRIEN,

Sorry for the late reply. I am replying to you on behalf of Exceldemy. To get multiple companies, you can use the formula below in

Cell G13:`=INDEX($B$3:$B$21,SMALL(IF(ISNUMBER((SEARCH($F$13,$B$3:$B$21))),MATCH(ROW($B$3:$B$21),ROW($B$3:$B$21)), ""),ROWS($A$1:A1)),COLUMNS($A$1:A1))`

Remember, it is an array formula. You can follow the steps below to get the results.

1. Firstly, type

DiamondinCell F13.2. Secondly, type the above formula in

Cell G13.3. Press

Ctrl+Shift+Entertogether.4. After that, drag the

Fill Handledown to get all 3 values.For more information, you can check the article below.

https://www.exceldemy.com/index-match-multiple-criteria-partial-text/

I hope this will help you to solve your problem.

Thanks!

Hi BRIAN WINKLE,

Sorry for the late reply. I am replying to you on behalf of Exceldemy. To create a timestamp like the given example, you can take a look at the article below.

https://www.exceldemy.com/create-a-timesheet-in-excel/

I hope this will help you to solve your problem.

Thanks!

Hi JIM,

Sorry for the late reply. I am replying to you on behalf of Exceldemy. You need to apply the formula below in Cell G16:

`=24-((C16-F16)-(D16-E16))*24`

I hope this will help you to solve your problem. Please let us know if you have other queries.

Thanks!

Hi JOE FRAZIER,

Thanks for your comment. I am replying to you on behalf of Exceldemy. In this article,

Cells I16:I22ofColumn Icounts the overtime for each day of a week. That means if you want to see the overtime forMonday, you need to checkCell I16. So, you can use the same formula to calculate overtime for a single day.I hope this will help you to solve your problem. Please let us know if you have other queries.

Thanks!

Hi FEITY LAU,

Sorry for the late reply. I am replying to you on behalf of Exceldemy. I guess you are facing the problem because of not defining the names. Here,

Cell D12is renamed aswork_hours_per_week. You can use theName Managerin theFormulastab to define the name. To check the defined names, follow the steps below.Firstly, download the practice book, go to the

Formulastab and selectName Manager.In the

Name Managerbox, you will find all the defined names.To apply the same formula in your new spreadsheet, you need to define the names using the

Name Manager. To do that, you can follow the link below.https://www.exceldemy.com/excel-edit-named-range/

Thanks!

Hi DEE ZELAYA,

Sorry for the late reply. I am replying to you on behalf of Exceldemy. Here,

Cell D12is renamed aswork_hours_per_week. You can use theName Managerin theFormulastab to define the name. To check the defined names, follow the steps below.Firstly, download the practice book, go to the

Formulastab and selectName Manager.In the

Name Managerbox, you will find all the defined names.To apply the same formula in your new spreadsheet, you need to define the names using the

Name Manager. To do that, you can follow the link below.https://www.exceldemy.com/excel-edit-named-range/

Thanks!

Hi CHRISTIAN,

Thanks for your comment. I am replying to you on behalf of Exceldemy. The time difference in the above article is in

Numberformat. That is why 8.17 doesnâ€™t mean 8 hours 17 min. It actually means 8 hours and 10 minutes. To get the results in the desired format, you can follow the steps below.First of all, select

Cell G16in the dataset and type the formula below:`=((F16-C16)-(E16-D16))`

Hit Enter to see the result.

Select Cell G16 again, go to the

Hometab, and click on theNumber Formaticon. It will open theFormat Cellswindow.In the Format Cells window, click on the

Numbertab and selectTime.Then, select 37:30:55 from the Type box.

As a result, you will see the result in the desired format.

I hope this will solve your problem. Please let us know if you have any other queries.

Thanks!

Dear JESSE BATES,

Thanks for your comment. Declaring variable types is not mandatory in VBA. VBA by default assigns the necessary data type to any variable, you just need to put the values. In the given code, the timer variable contains the data type Double.

Please let us know if you have any other queries.

Thanks!

Dear AG,

Thanks for your comment. To avoid the Run time error in VBA, you need to add an error handling line inside the code. There are different error-handling commands in VBA. To solve the problem, add the below line after the Sub procedure.

On Error Resume Next

You need to add the above line inside the code like the picture below.

To know more about handling errors in Excel VBA, you can check out the article below.

https://www.exceldemy.com/excel-vba-on-error-resume-next/

I hope this reply will solve your problem. Please let us know if you have any other queries.

Thanks!

Dear MICHAEL,

Thanks for your comment. You can insert a Tab using â€ś~009â€ť inside the string. For example, XXXX.1TAB123456 can be written as XXXX.1~009123456. But unfortunately, it will not show two separate fields in one barcode. From my understanding, you need to use other barcode fonts for that purpose.

Otherwise, you can look at the solution below. But this solution will not provide you with one barcode. Here, we tried to concatenate two separate barcodes in one cell. Here, we will use the dataset below.

Letâ€™s follow the steps below for the solution.

â—Ź Firstly, change the fields into barcode strings.

â—Ź To do so, select Cell D5 and type the formula below:

=Code128(B5)

â—Ź Also, do the same for the second field.

â—Ź After that, select Cell B7 and type the formula below:

=CONCAT(D5,CHAR(9),E5)

â—Ź Hit Enter to see the result.

â—Ź Now, select Cell B7 again and change the font theme to Code 128.

â—Ź Also, adjust the font size.

â—Ź Finally, you will get results like the picture below.

I hope this solution will help benefit you to some extent. Please let us know if you face any other issues.

Thanks!

Hello CRISNA,

Thanks for your comment. You canâ€™t generate the text below the barcode with the code 128 font we used here. But you can use the Libre Barcode 128 Text font for that. Also, you can follow this article https://www.exceldemy.com/generate-barcode-numbers-in-excel/ to generate characters below the barcode. I hope this will help you to solve your problem. Please let us know your queries if you face any issues.

Thanks.

Hi MKM,

Thanks for your comment. To answer your question, we can use the dataset below. It contains 3 rows of sales for Germany. The first sale happened in March and the other two sales happened in May. From this dataset, we can easily calculate the average sales for May in Germany.

To calculate the average sales for May in Germany, select Cell F5 and type the formula below:

=AVERAGEIFS(D5:D15, B5:B15,”<=5/31/2022", B5:B15,">=5/01/2022″,C5:C15,”Germany”)

Press Enter to see the result.

I hope this will help you to solve your problem. Please let us know your queries if you face any issues.

Thanks.

Dear NEIL,

Thanks for your comment. Code 128 barcode font has 106 unique representations and supports standard ASCII characters. Unfortunately, Ă• and Ĺ’ â€“ these two characters are not supported by code 128 barcode font. But you can try other barcode fonts to solve this issue. You can use the free online barcode generator for that purpose. I hope this will help you to solve your problem.

Thanks.

Dear CHRIS,

Thanks for your comment. Excel omits the leading zero by default. So, itâ€™s not possible to get the desired barcode.

â€˘ To solve this, you must add an apostrophe (‘) in front of the leading zero.

â€˘ So, select Cell C5 in the VBA sheet of the workbook.

â€˘ Type ‘02628107336750 in Cell C5.

â€˘ Press Enter.

â€˘ You will get your results in Cell D5.

I hope this will help you to solve your problem.

Thanks.

Hello, Abu!

Thanks for your comment. Unfortunately, it is not possible to show the expected end date dynamically after each pre-payment. Because the dataset changes dynamically after a pre-payment. But you can find the expected payment date after each month using the formula below. For the dataset, we have used in this article, you can type the formula in Cell H8:

=DATE(YEAR(H7),MONTH(H7)+(12/$J$15),DAY(H7))

Here, Cell H7 contains the loan starting date and Cell J15 contains the number of yearly payments.

You can also take a look at this article https://www.exceldemy.com/student-loan-payoff-calculator-with-amortization-table-excel/ for an explanation of the formula. I hope this will help you to solve your problem.

Thanks!

Hello, Dom!

Thanks for your feedback. If you are facing any problems generating code 128 barcode font in Excel, then you can ask here. We will try to reply to you as soon as possible.

Thanks!

Hello, Bimen!

Sorry to hear that you are facing problems converting minutes to decimal numbers. You can send your excel file to [email protected] and we will try to give a solution to your problem.

Thanks!

Hi BIPLAB,

Thanks for your query. You can build a formula with the nested CONCAT function. In that case, you donâ€™t need any helper column. For the dataset we have discussed in the article, the formula will be:

=CONCAT(CONCAT(B5,” “,C5,” “,D5),”,”, CONCAT(B6,” “,C6,” “,D6),”,”,CONCAT(B7,” “,C7,” “,D7),”,”,CONCAT(B8,” “,C8,” “,D8))

You can also use the VBA code below. To apply this, you need to select the rows of the first column of the dataset and then run the code from the Macro window.

Sub Merge_Rows_with_Comma()

Dim iSelection As Range

Dim iRow As Range

Dim iCell As Range

Dim iStr As String

Application.ScreenUpdating = False

On Error Resume Next

Set iSelection = Intersect(Selection, ActiveSheet.UsedRange)

For Each iRow In iSelection.Rows

For Each iCell In iRow.Cells

iStr = iStr & ” ” & VBA.Trim$(iCell)

Next iCell

iRow.ClearContents

iRow.Cells(1, 1).NumberFormat = “@”

iRow.Cells(1, 1) = Mid(iStr, 2)

iStr = vbNullString

Next iRow

For Each iCell In iSelection

iStr = iStr & “,” & VBA.Trim$(iCell)

Next

With ActiveWindow

.Selection.ClearContents

.Selection(1, 1).NumberFormat = “@”

.Selection(1, 1).Value = Mid(iStr, 2)

End With

End Sub