Ein Cells ohne Bezug auf das Arbeitsblatt nimmt das aktive ....
Dein Sheets.Add ist leer, dein FrageNr = Cells(4, s) = 0
Dann knallt es - oder?