Es muy sencillo. Tan solo tienes que hacer esto:
Código:
dato1 = hoja1.Range("G4")
dato2 = hoja1.Range("D8")
dato3 = hoja1.Range("D12")
dato4 = hoja1.Range("B17")
Donde "hoja1" es el nombre de la hoja, pero visto a nivel interno, es decir, el nombre que ves desde VBA, no el nombre de la pestaña que ve el usuario. Si lo que quieres es acceder a la hoja1, pero atendiendo al nombre de la pestaña, entonces debes hacerlo así:
Código:
dato1 = Sheets("hoja1").Range("G4")
dato2 = Sheets("hoja1").Range("D8")
dato3 = Sheets("hoja1").Range("D12")
dato4 = Sheets("hoja1").Range("B17")
Saludos.