How to send the same mail to multiple recipients at a time from outlook vba

This is the code:

It works fine if it is for one recipient.

Sub Sendmail()
     Dim olItem As outlook.MailItem
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSht As Excel.Worksheet
    Dim sPath As String
    Dim iRow As Long


    sPath = "***"
'   // Excel
    Set xlApp = CreateObject("Excel.Application")
'   // Workbook
    Set xlBook = xlApp.Workbooks.Open(sPath)
'   // Sheet
    Set xlSht = xlBook.Sheets("Sheet1")



     ' subject = Cells(iRow, 2).Value
     ' Atmt = Cells(iRow, 3).Value '

'   // Create e-mail Item
    Set olItem = Application.CreateItem(olMailItem)

    With olItem
  .To = xlSht.Range("A1")


        .CC = xlSht.Range("c1")

        .subject = "test"
        .Display
       .Send
    End With


'   // Close
    xlBook.Close SaveChanges:=True
'   // Quit
    xlApp.Quit

    '// CleanUp


      iRow = iRow + 1

  
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSht = Nothing
Set olItem = Nothing



End Sub

Select allOpen in new window

Query:
As per my requirement the recipients names should be taken from linked excel sheet.

All the recipients mail address placed in column A of the excel sheet.

And these values are dynamic, it might contain any number of mail Ids.

Example:

Column A:

yhui@gmail.com
abc@gmail.com
ikj@gmail.com
plo@gmail.com

Here there are 4 values, now the mail should be sent to all these 4 recipients at the same time.

So To field should be containing: yhui@gmail.com;abc@gmail.com;ikj@gmail.com;plo@gmail.com

The code should be able to traverse across the column A till the last row and concatenate all the values separated by a semicolon (;)

Thanks in advance