關於Excel 使用VBA設定多個sheet的列印範圍疑問【已解決】

在sheet01按下按鈕後設定好sheet02、sheet03...等的列印範圍
但是下面這樣寫單獨的sheet，在測試時都沒問題.
在Sheet01時，按下按鈕去執行其他的就會跳出錯誤.
想請教大大們以下這樣寫哪邊出了問題呢？

**********************sheet01**********************

Sub Printset_click()
　　sheet02.printset
　　sheet03.printset
　　sheet04.printset
　　.
　　.
　　sheetXX.printset
End Sub

**********************sheet02**********************

sub printset()
　　ActiveSheet.PageSetup.PrintArea = "A2:AB" & [A1] - 1
End Sub

**********************sheet03**********************
sub printset()
　　ActiveSheet.PageSetup.PrintArea = "A2:I" & [A1] - 1
End Sub

**********************sheet04**********************
sub printset()
　　ActiveSheet.PageSetup.PrintArea = "A4:AB" & [A1] - 1
End Sub
　　　　　　　　　　　　　　.
　　　　　　　　　　　　　　.
　　　　　　　　　　　　　　.
***************************************************

註：A1只是個暫存參數，因為列印範圍會變動.