Pete, here is the resot of the code with your suggestion near the bottom
which returns a "compile error".
Private Sub LienRegistration_Click()
Application.ScreenUpdating = False
Dim nResult As Long
resp = MsgBox(Prompt:="Do you want to clear values?", Buttons:=vbYesNo)
If resp = vbYes Then
Application.Goto Reference:="NFNRRegistrationBusinessName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAddress"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationCity"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationPostalCode"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationBN9Number"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAssignedCollectorName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationMORNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationFileNumber"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationTradeName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationIndLastName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationStatuteType"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationAmountOwing"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN1"
Selection.ClearContents
Application.Goto Reference:="NFNRMVYear2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVMake2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVModel2"
Selection.ClearContents
Application.Goto Reference:="NFNRMVVIN2"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistrationExtraMVs"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndDOB"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndName"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndInitial"
Selection.ClearContents
Application.Goto Reference:="NFNRRegistration2ndIndLastName"
Selection.ClearContents
LienRegistrationForm.Show
'ProcessDate = Now
ProcessDate = Text(TODAY(), "mm/dd")
Sheets("Menu").Select
End If
End Sub