Schleife mit Label

Sub Test ()
For z = 2 To 8
For s = 3 To 4
If IsEmpty(Range(Cells(z, s), Cells(z, s)).Value) = True Then
Cells(z, s).Value = frm.TxtFR * 1       (Hier ist das Problem)
DBFormat.Copy
Cells(z, s).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Exit For
End If
Next s
If Cells(z, s).Value = frm.TxtFR Then Exit For
Next z
End Sub
Danke schon einmal im voraus!