Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA ERROR
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Counting instances of found text (Excel error? Or user error?) | Excel Worksheet Functions | |||
Error Handling - On Error GoTo doesn't trap error successfully | Excel Programming | |||
Form Err.Raise error not trapped by entry procedure error handler | Excel Programming | |||
Automation Error, Unknown Error. Error value - 440 | Excel Programming |