Save file based on active cell

  • ActiveWorkbook.SaveAs Filename:=Range("B1").Value

    The above formula lets me save a workbook to a specific cell but how can I get this to save to the current active cell?

    Sorry for the dumb questions but you all have been very helpful. thanks

  • thank you for the answer to saving a workbook from an active cell but now it doesn't seem to work when I try to use the same phrase for creating another sheet within the workbook...see below.....the bold phrase works for a specific cell but not the active cell

    Keyboard Shortcut: Ctrl+n

    Dim wSht As Worksheet
    Dim shtName As String
    shtName = Sheets(1).Range("B2")
    For Each wSht In Worksheets
    If wSht.Name = shtName Then
    MsgBox "Sheet already exists...Make necessary " & _
    "corrections and try again."
    Exit Sub
    End If
    Next wSht
    Sheets(1).Copy before:=Sheets(1)
    Sheets(1).Name = shtName
    Sheets(shtName).Move After:=Sheets(Sheets.Count)
    End Sub

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!