Fout in macro

[CorVerm]

Beste mensen,
De bedoeling is dat als cel A1 in het werkblad "Invoer" leeg is er een waarschuwingsvenster te voorschijn komt.
Ik krijg een foutmelding op de bovenste regel van de macro. Wat heb ik fout gedaan?

Sheets("Invoer").(Cells "1,0") = "" Then
intDummy = MsgBox("Vul de juiste datum in.", vbOKOnly + vbExclamation, "Controle gegevens")

 

[DIEZEL]

Het is:
Cells((1, 0)

 

[DIEZEL]

Kijk anders ook eens bij Luc:http://users.skynet.be/onderland/TekstExcel/Bereiken in VBA.htm

 

[femda-punt-com]

Probeer deze variant eens:

If Worksheets("Invoer").Cells(1,1) = "" Then

 

[LucB]

Cor,

Deze code zal het doen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
begin:
Sheets("Invoer").Range("A1").Select
Range("A1") = InputBox("Vul de juiste Datum in A1")
If Range("A1") = "" Then GoTo begin
End Sub

Kopieer deze code.
Rechtsklik op de tab "Invoer" en kies "Programmacode weergeven". Aan de linkerkant van de VBEditor geef je een Dubbelklik op "ThisWorkbook" en klik op Plakken.
Met Alt+Q ben je weer op je Excelblad.

Opm. Cells("1, 0") bestaat niet. (Er is geen kolom 0)
Moet zijn: Cells(1, 1) of Range("A1")

Succes

 

[CorVerm]

Diezel en Frits.
Beiden dank voor de reactie. Probleem opgelost.

 

[CorVerm]

Sorry Luc,
Had jouw reactie nog niet gezien. Ook hartelijk dank en ik zal het zeker bewaren.