Dim i As Integer
Dim j As Integer
Dim R As Long
Dim C As Long
Dim myxlsapp
myxlsapp = CreateObject("Excel.Application")
For i = 1 To 8
C = 64
R = R + 1
For j = 1 To dv.Count
myxlsapp.Range(Chr(j) & j).Select()
myxlsapp.ActiveCell.Value = Me.DataGrid1.Items(j).Cells(i).Text
myxlsapp.DisplayAlerts = False
Next
Next
myxlsapp.DisplayAlerts = False
myxlsapp = Nothing