H
Hamed parhizkar
I have this function in VBA but I get an error everytime:
When I try to run it I get an error saying "Block If without End if"
My very last function ends with:
End If
End Sub
But if I take the end sub out I get an error that reads" Expected end Sub"
???
Private Sub CommandButton1_Click()
If Range("AB54") > 0 Then
Range("Z48:AC59").Select
ActiveSheet.PageSetup.PrintArea = "$Z$48:$AC$59"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If Range("AB65") > 0 Then
Range("Z60:AC71").Select
ActiveSheet.PageSetup.PrintArea = "$Z$60:$AC$71"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If Range("AB80") > 0 Then
Range("Z73:AC86").Select
ActiveSheet.PageSetup.PrintArea = "$Z$73:$AC$86"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
When I try to run it I get an error saying "Block If without End if"
My very last function ends with:
End If
End Sub
But if I take the end sub out I get an error that reads" Expected end Sub"
???
Private Sub CommandButton1_Click()
If Range("AB54") > 0 Then
Range("Z48:AC59").Select
ActiveSheet.PageSetup.PrintArea = "$Z$48:$AC$59"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If Range("AB65") > 0 Then
Range("Z60:AC71").Select
ActiveSheet.PageSetup.PrintArea = "$Z$60:$AC$71"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
If Range("AB80") > 0 Then
Range("Z73:AC86").Select
ActiveSheet.PageSetup.PrintArea = "$Z$73:$AC$86"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub