Can someone tell me what is wrong with this code?
It is not writing anything to the destination worksheet. It looks solid, maybe an expert can tell me what I've done improperly.
Thanks for the help in advance.
Marty
It is not writing anything to the destination worksheet. It looks solid, maybe an expert can tell me what I've done improperly.
Code:
Private Sub btnXL_Click()
Dim objXL As Excel.Application
Dim objWB As Excel.Workbook
Dim objWS As Excel.Worksheet
Set objXL = Excel.Application
Set objWB = objXL.Workbooks.Open("L:\New L Drive\05, Supply Folders\02, PUR-1E\Requisitions\2007\PUR-1E.xls")
Set objWS = objWB.Worksheets("Form")
With objWS
.Cells(1, 1).Value = "Hello"
'.Cells(2, 1).Value = Me.txtXl
End With
objXL.Visible = True
End SubThanks for the help in advance.
Marty