Private Sub CommandButton1_ Click()

'Sub PrintSPM()

Sheets("SD Measurement").R ange("A1:H28"). PrintOut Copies:=1
Sheets("Menu"). Select
Range("D16").Se lect

End Sub