Automatically Select Range Before Saving

[2funny4words]

As you can see from the code below, I am copying my report and pasting to a new workbook then saving the new workbook with a predetermined name.

Private Sub cmdSaveReport_Click()
Application.ScreenUpdating = False
ActiveSheet.Select
ActiveSheet.Copy
ThisFile = Range("FileName").Value
ActiveSheet.SaveAs Filename:="\\upstairs\shareddocs\Incident Reports\2010 Incident Reports\" & ThisFile & ".xls"
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub

The problem that I am encountering is that when I open the newly saved form, I am always at the bottom of the form. I would like to open the saved form and be in Range h7:ac7 automatically. It is not a big issue as I have been using it this way for around a year but it would be a nice addition. Also as the form will never need to be updated, how do I get the newly saved form to not want to be updated every time I open it up?

Thanks in advance
Keith

[excelxx]

Hi

I think the code you need is below.

Sub cmdSaveReport_Click()
Application.ScreenUpdating = False
ActiveSheet.Select
ActiveSheet.Copy
ActiveWindow.ScrollRow = 7
ActiveSheet.Range("H7").Activate
ThisFile = Range("FileName").Value
ActiveSheet.SaveAs Filename:="\\upstairs\shareddocs\Incident Reports\2010 Incident Reports\" & ThisFile & ".xls"
Application.ScreenUpdating = True
ActiveWorkbook.Close
End Sub

[2funny4words]

It worked very well

Thanks very much. I really appreciate all that have helped me here on this forum. Maybe someday I will be able to help someone else.