I needed some code to export to a locked statistics workbook and found the original code from boblarson very helpful. I ran into a couple snags because I needed to send to a specific range (which included locked cells that won't overwrite), but did a minor mod to specify the range to start in rather than cell row and column references. Simple call command from a button and bam.
++++++++++++++++++
Public Sub Export_Data(qName As String, wsName As String, wsRange As String)
Dim MySheetPath As String
Dim objXL As Object
Dim xlWB As Object
Dim xlWS As Object
Dim rst1 As Recordset
Dim lngRow As Long
Set objXL = CreateObject("Excel.Application")
MySheetPath = "SheetPathNameHere"
With objXL
.Visible = True
Set xlWB = .Workbooks.Open(MySheetPath)
Set rst1 = CurrentDb.OpenRecordset(qName)
Set xlWS = xlWB.Worksheets(wsName)
xlWS.Range(wsRange).CopyFromRecordset rst1
xlWB.Close True
.Quit
End With
Set objXL = Nothing
End Sub