B
Bill McCaleb
After running the following sub the excel spreadsheet comes up. When
exiting out of excel the program appears to close but doesn't, it's
still running in the background. What's the problem?
Sub xls2()
Dim ex As New Excel.Application
Dim wrkbk As Excel.Workbook
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
Set wrkbk = Workbooks.Open("c:\TRPWKBookA.xls")
Set wks = wrkbk.Worksheets("41 ECS")
wks.Range("b13").Value = 12
Set wks = wrkbk.Worksheets("755")
wks.Range("b13").Value = 13
'Set rng = wks.Cells(2, 13)
' With rng
' .Value =
'Set rng = wks.UsedRange.columns
ex.Visible = True
End Sub
Thanks if anyone can tell me what's wrong.
bill
exiting out of excel the program appears to close but doesn't, it's
still running in the background. What's the problem?
Sub xls2()
Dim ex As New Excel.Application
Dim wrkbk As Excel.Workbook
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
Set wrkbk = Workbooks.Open("c:\TRPWKBookA.xls")
Set wks = wrkbk.Worksheets("41 ECS")
wks.Range("b13").Value = 12
Set wks = wrkbk.Worksheets("755")
wks.Range("b13").Value = 13
'Set rng = wks.Cells(2, 13)
' With rng
' .Value =
'Set rng = wks.UsedRange.columns
ex.Visible = True
End Sub
Thanks if anyone can tell me what's wrong.
bill