Userform1 has 3 option buttons & a Command Button. I've got this:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

' ASK IF EMAILS NEED SENDING WHEN AMENDMENTS/ADDITIONS MADE

' ALWAYS RETURN TO TOP OF VIEW OR PRINT SHEET B4 CLOSING
Sheets("VIEW OR PRINT").Select
ActiveWindow.ScrollRow = 1
Cells(1, 1).Select

UserForm1.Show

End Sub

....then...

Private Sub CommandButton1_Click()

[code here seems to be working]

End Sub

When I Save (ie activate the macro), I get a Runtime error '400' and
UserForm1.Show is yellow-highlighted. I've tried putting Unload
UserForm1 in under UserForm1.Show