When I try to run this code it fails to accept the "NameSave" It says <Method
"Range" of object'_Globle"failed

Private Sub CommandButton4_Click() 'Saves wookbook and exits


Dim NameSave As Range
Dim DateSave As Range

Sheets("Summary").Select

Set NameSave = Range("Summary!A2")
Set DateSave = Range("Summary!E213")

etc.

oldjasy