Darryl
Place this macro in the ThisWorkbook module. Note that you have to have
2 sheets named exactly as they are named in this macro, spaces and all. HTH
Otto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Select
If ws.Name < "Database-address" And ws.Name < "Database - Name"
Then
Range("A1").Select
Else
If ws.Name = "Database-address" Then Range("A4").Select
If ws.Name = "Database - Name" Then Range("A6").Select
End If
Next ws
End Sub

"Darryl" wrote in message
...
Hi

I have a workbook which comprises 11 worksheets. Before saving the
workbook, I would like to return all sheets to cell A1 except for two
worksheets - one called "Database-address" and the other "Database - Name"
which asre to be returned to cells A4 and A6 respectively.

How can I do this with vba code.

Thanks

Darryl