I need to unselect the cells in the new worksheet (in new workbook) tha
I'm creating.

I can't seem to figure out how to unselect the cells from the ne
worksheet file that I'm creating. This is the part of my macro tha
creates a separate copy of my current activesheet. The Problem is whe
the Macro creates the new sheet it leaves all the cells selected s
when I open the file again they are all selected. How do I unselect th
sheet prior to the sheet saving?

Dim FileName As String
FileName = "C:\test5\" & Range("C105") & " " & Range("f105")

ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Cells.Copy
.Sheets(1).Cells.PasteSpecial (xlPasteValues)
.SaveAs FileName
.Close
End Wit

--
bobwilso
-----------------------------------------------------------------------
bobwilson's Profile: http://www.excelforum.com/member.php...fo&userid=3304
View this thread: http://www.excelforum.com/showthread.php?threadid=52921

Something needs to be selected. Try something like this...

With ActiveWorkbook
..Sheets(1).Cells.Copy
..Sheets(1).Cells.PasteSpecial (xlPasteValues)
..Sheets(1).Range("A1").Select
..SaveAs FileName
..Close
End With

--
HTH...

Jim Thomlinson


"bobwilson" wrote:


I need to unselect the cells in the new worksheet (in new workbook) that
I'm creating.

I can't seem to figure out how to unselect the cells from the new
worksheet file that I'm creating. This is the part of my macro that
creates a separate copy of my current activesheet. The Problem is when
the Macro creates the new sheet it leaves all the cells selected so
when I open the file again they are all selected. How do I unselect the
sheet prior to the sheet saving?

Dim FileName As String
FileName = "C:\test5\" & Range("C105") & " " & Range("f105")

ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Cells.Copy
.Sheets(1).Cells.PasteSpecial (xlPasteValues)
.SaveAs FileName
.Close
End With


--
bobwilson
------------------------------------------------------------------------
bobwilson's Profile: http://www.excelforum.com/member.php...o&userid=33046
View this thread: http://www.excelforum.com/showthread...hreadid=529212

Dim FileName As String
FileName = "C:\test5\" & Range("C105") & " " & Range("f105")

ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Cells.Copy
.Sheets(1).Cells.PasteSpecial (xlPasteValues)
.Range("A1").Select
.SaveAs FileName
.Close
End With

--
Regards,
Tom Ogilvy


"bobwilson" wrote:


I need to unselect the cells in the new worksheet (in new workbook) that
I'm creating.

I can't seem to figure out how to unselect the cells from the new
worksheet file that I'm creating. This is the part of my macro that
creates a separate copy of my current activesheet. The Problem is when
the Macro creates the new sheet it leaves all the cells selected so
when I open the file again they are all selected. How do I unselect the
sheet prior to the sheet saving?

Dim FileName As String
FileName = "C:\test5\" & Range("C105") & " " & Range("f105")

ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Cells.Copy
.Sheets(1).Cells.PasteSpecial (xlPasteValues)
.SaveAs FileName
.Close
End With


--
bobwilson
------------------------------------------------------------------------
bobwilson's Profile: http://www.excelforum.com/member.php...o&userid=33046
View this thread: http://www.excelforum.com/showthread...hreadid=529212

typo:

ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Cells.Copy
.Sheets(1).Cells.PasteSpecial (xlPasteValues)
.Sheets(1).Range("A1").Select
.SaveAs FileName
.Close
End With

or

ActiveSheet.Copy
With ActiveWorkbook.sheets(1)
.Cells.Copy
.Cells.PasteSpecial (xlPasteValues)
.Range("A1").Select
.Parent.SaveAs FileName
.Parent.Close SaveChanges:=False
End With

--
Regards,
Tom Ogilvy

--
Regards,
Tom Ogilvy



"Tom Ogilvy" wrote:

Dim FileName As String
FileName = "C:\test5\" & Range("C105") & " " & Range("f105")

ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Cells.Copy
.Sheets(1).Cells.PasteSpecial (xlPasteValues)
.Range("A1").Select
.SaveAs FileName
.Close
End With

--
Regards,
Tom Ogilvy


"bobwilson" wrote:


I need to unselect the cells in the new worksheet (in new workbook) that
I'm creating.

I can't seem to figure out how to unselect the cells from the new
worksheet file that I'm creating. This is the part of my macro that
creates a separate copy of my current activesheet. The Problem is when
the Macro creates the new sheet it leaves all the cells selected so
when I open the file again they are all selected. How do I unselect the
sheet prior to the sheet saving?

Dim FileName As String
FileName = "C:\test5\" & Range("C105") & " " & Range("f105")

ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Cells.Copy
.Sheets(1).Cells.PasteSpecial (xlPasteValues)
.SaveAs FileName
.Close
End With


--
bobwilson
------------------------------------------------------------------------
bobwilson's Profile: http://www.excelforum.com/member.php...o&userid=33046
View this thread: http://www.excelforum.com/showthread...hreadid=529212

Thanks Tom - That works

What is the difference between the two types of code you provided?
assume it does the same thing. I'm just trying to better understan
VBA.

Bo

--
bobwilso
-----------------------------------------------------------------------
bobwilson's Profile: http://www.excelforum.com/member.php...fo&userid=3304
View this thread: http://www.excelforum.com/showthread.php?threadid=52921

No real difference. The technical difference is how much of the reference I
put in the With statement and how much was repeated in the code between the
if statements. In your case, you had about as many lines referring to
Workbook actions as you did to sheet actions. So not much difference.

--
Regards,
Tom Ogilvy

"bobwilson" wrote
in message ...

Thanks Tom - That works

What is the difference between the two types of code you provided? I
assume it does the same thing. I'm just trying to better understand
VBA.

Bob


--
bobwilson
------------------------------------------------------------------------
bobwilson's Profile:
http://www.excelforum.com/member.php...o&userid=33046
View this thread: http://www.excelforum.com/showthread...hreadid=529212

Hi
Park the cursor somewhe

ActiveSheet.Copy
With ActiveWorkbook
With .Sheets(1)
.Cells.Copy
.Cells.PasteSpecial (xlPasteValues)
.Activate
.cells(1,1).Select
End With
..SaveAs FileName
..Close
End With

This is untested.

regards
Paul