title: How to save as workbook with cell name in vba
body: <p>I created MACRO in my order calculation template to deleted some unnecessary rows and save a sheet as workbook with "name". MACRO works great, but where is one annoying problem, I every time have change it this workbook name according to order number. So, I want to create/improve my MACRO to save sheet as workbook with cell name (this cell range "G1"). </p>
  
  <p>Could someone have ideas how to do this?</p>
  
  <pre><code>Sub Pirmoji()
  '
  ' Pirmoji Macro
  
  Sheets("Svorio Patvirtinimo dok").Select
  ActiveSheet.Shapes.Range(Array("Column1")).Select
  Sheets("Svorio Patvirtinimo dok").Copy
  Rows("1:6").Select
  Selection.Delete Shift:=xlUp
  ActiveWindow.SmallScroll Down:=66
  Dim LastRow As Long, myCell As Range, myRange As Range
  Dim myCell1 As Range
  
  LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
  Set myCell1 = Range("A" &amp; LastRow)
  Cells.Find(What:="• Praau atkreipti d?mes?:", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
      :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
      False).Activate
  
  Set myCell = ActiveCell
  Set myRange = Range(myCell, myCell1)
  
  myRange.EntireRow.Delete
  ActiveWindow.SmallScroll Down:=-78
  Cells.Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  
  ActiveSheet.Copy
  MsgBox "This new workbook will be saved as MyWb.xls(x)"
  
  ActiveWorkbook.SaveAs ThisWorkbook.Path &amp; "\MyWb", xlWorkbookNormal
  MsgBox "It is saved as " &amp; ActiveWorkbook.FullName &amp; vbLf &amp; "Press OK to close it"
  
  ActiveWorkbook.Close False
  
  End Sub
  </code></pre>