Überspringt einfach die Schleife

Private Sub CommandButton5_Click()
Dim tabname As String
If IsNumeric(Range("M42").Value) And Range("O42").Value = "" Then
Range("O42").ClearContents
End If
If IsNumeric(Range("M43").Value) And Range("O43").Value = "" Then
Range("O43").ClearContents
End If
If IsNumeric(Range("M44").Value) And Range("O44").Value = "" Then
Range("O44").ClearContents
End If
If IsNumeric(Range("M45").Value) And Range("O45").Value = "" Then
Range("O45").ClearContents
End If
If IsNumeric(Range("M46").Value) And Range("O46").Value = "" Then
Range("O46").ClearContents
End If
If IsNumeric(Range("M47").Value) And Range("O47").Value = "" Then
Range("O47").ClearContents
End If
If IsNumeric(Range("M48").Value) And Range("O48").Value = "" Then
Range("O48").ClearContents
End If
If IsNumeric(Range("M49").Value) And Range("O49").Value = "" Then
Range("O49").ClearContents
End If
tabname = Sheets("Plan").Range("Q8").Value
Sheets(Array("Neues_Layout", "Plan")).Select
ChDir "L:\Verpackungsplanung\30_Verpackungsanweisung\30_04_VPA_geprueft"
ActiveWorkbook.SaveAs filename:="L:\Verpackungsplanung\30_Verpackungsanweisung\ _
30_04_VPA_geprueft\" & tabname & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Speichert Excel-VPA im Verzeichnis L:\Verpackungsplanung\30_Verpackungsanweisung\ _
30_04_VPA_geprueft\
ChDir "L:\Verpackungsplanung\30_Verpackungsanweisung\30_07_PDF_fuer_SAP"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
"L:\Verpackungsplanung\30_Verpackungsanweisung\30_07_PDF_fuer_SAP\" & tabname & ".pdf"  _
_
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'Speichert PDF-VPA im Verzeichnis L:\Verpackungsplanung\30_Verpackungsanweisung\ _
30_07_PDF_fuer_SAP\
Sheets("Plan").Activate
End Sub