set Range läuft nicht

[StefKe]

Hallochen allerseits, kennt von euch Könnern wer die Lösung:

Code:

dim rngGesamt as Range
dim lngLetzteSpalte
dim lngLetzteZeile

lngLetzteSpalte=2
lngLetzteZeile=2

Set rngGesamt = ThisWorkbook.Worksheets("Mitglieder_Gesamt").Range("A1:B2") 'läuft !!!
Set rngGesamt = ThisWorkbook.Worksheets("Mitglieder_Gesamt").Range(Cells(1, 1), Cells(lngLetzteZeile, lngLetzteSpalte)) 'Fehler 1004!!!

 Wo ist die Ursache - wie kann ich das umgehen?

Danke
Stefan