Hola, buenas tardes quisiera que me ayudaran en el sig codigo
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Open("C:\Documents and Settings\Japan Airlines\My Documents\Book1.xls")
Set xlWS = xlWB.Worksheets.Item(2)
xlWS.Visible = xlSheetVisible
xlWS.Range("B1:BC93").Select (AQUI ME MARCA ERROR)
xlWS.Range("B1:BC93").PrintPreview
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
Picture6.Visible = True
Label16.Visible = True
h = MsgBox("Deseas capturar otro certificado ?", vbYesNo, "A T E N C I O N")
If h <> vbYes Then Exit Sub
Unload Form1
Form1.Refresh
Form1.Show
Y me da el error en el metodo select.
Alguna idea????
Gracias por todo
