Primero define que vas a usar 4 hojas
Código:
Dim ExcelWBk As Excel.Workbook ' El Libro
Dim ExcelWS(4) As Excel.Worksheet ' El área de trabajo: 4 Hojas
Cuando vayas a grabar datos, indica el número de Hoja
Código:
n=2 ' Para trabajar con los CARROS
Selecciona como área de trabajo esa hoja que has indicado
Código:
Set ExcelWS(n) = ExcelWBk.Worksheets(n) ' Selecciona el área de trabajo
Y ya puedes trabajar los campos de esa hoja
Código:
ExcelWS(n).Cells(nRow, nCol) = [Valor que quieras grabar en la celda indicada]