VBA help Copy from Record Set

[joesef]

Sub cmdRefresh()

    If GetConnectionString = False Then
        Exit Sub
    End If



    Dim oWorkbook As Workbook
    Dim oWorksheet As Worksheet
    Dim oRange As Range
    Dim oRS As ADODB.Recordset
    
    Set oWorkbook = ActiveWorkbook
    
    
    ' Get SQL String
    Set oWorksheet = oWorkbook.Worksheets("SQL")
    Set oRange = oWorksheet.Range("A1")
    Dim sSQL As String
    sSQL = Trim(oRange.Value)
    On Error Resume Next
    Set oRS = modMain.GetSQLData(sSQL)
    If Err <> 0 Then
        MsgBox "Problem retrieving data : " & Err.Description, vbExclamation, "Get Data"
        Exit Sub
    End If
    On Error GoTo 0
    
    
    
    Set oWorksheet = oWorkbook.Worksheets("Data")
    Set oRange = oWorksheet.Range("B1")
    Call oRange.CopyFromRecordset(oRS)
    oRS.Close
    
    
    Set oWorksheet = oWorkbook.Worksheets("Summary")
    
    Dim oPT As PivotTable
    For Each oPT In oWorksheet.PivotTables
        oPT.RefreshTable
    Next
    
    
    
    
    
End Sub

I'm having trouble editing my code so that the data is copied from the record set and entered Vertically in B1 instead of Horizontally...Any ideas?

Thanks

 

[joesef]

Thanks richard,

I owe you a beer!

wonderful help