Dickie :

Paste this into the code for the worksheet.

(do that by right clicking there sheet tabe at the bottom and select view
code, then select thisworkbook and paste it in there).

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wn As Worksheet
Dim w As Worksheet
Set wn = ActiveSheet ' get current worksheet
For Each w In Worksheets
w.Select
Range("A1").Select
Next w
wn.Activate ' set current worksheet
' or sheets(1).activcat if want first sheet
End Sub

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Dickie Worton" wrote:

Hi,
Hope this is an easy one for someone.
As a novice with VBA I could do with some help in adding code to a worksheet
that will automatically move the active cell back to being cell A1 before I
close my worksheet.
Any suggestions?
Thanks,
Dickie