how can I add a path where to save the new workbook?

Hi,
Pls can someone help me, I need to add a code that specifies where to save my file, the path for the new workbook must be, c:\pos\supdata.range("a2").value

Here is my code
[CODE]Private Sub add_Click()

Sheets("ITEMDATA").Select
Range("A1:M25").Select
Selection.Copy
Sheets("SUPDATA").Select

Windows(ActiveSheet.Range("A2").Value).Activate
Range("a4").Select
ActiveSheet.Paste
Range("a4").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("BROKS POS.XLSM").Activate
Sheets("SUPDATA").Select
Range("A2:D2").ClearContents
Sheets("ITEMDATA").Select
Range("A2:D25").ClearContents



Me.Hide

End Sub[\CODE]

As far as I can see that code isn't creating, or saving, a new workbook.

Oops, wrong code, hetre we are

[CODE]Private Sub CommandButton1_Click()


Dim WS As Worksheet, lRow As Long, Str As String

Set WS = Sheets("supdata")
lRow = WS.Range("A" & Rows.Count).End(xlUp).Offset(1).Row

'____error handling______


If TextBox1.Value = "" Or nullstring Then
MsgBox "Complete All Information!", vbCritical, "Error..."
GoTo error1
End If



'____error handling end______

If MsgBox("Add " & TextBox1.Value & " to the database?", vbYesNo, "Confirm add") = vbYes Then

WS.Cells(lRow, "A") = TextBox1.Value
WS.Cells(lRow, "B") = TextBox2.Value
WS.Cells(lRow, "C") = TextBox3.Value
WS.Cells(lRow, "D") = TextBox4.Value


MsgBox TextBox1.Value & " has been added "
Range("SUPDATA!A1:D2").Copy
Workbooks.add
Range("A1").PasteSpecial
ActiveSheet.Name = Range("B2").Value
ActiveWorkbook.SaveAs Filename:=Range("A2").Value

TextBox1.Value = nullstring
TextBox2.Value = nullstring
TextBox3.Value = nullstring
TextBox4.Value = nullstring

NEWACC.Hide


Else
End If
Windows("BROKS POS.XLSM").Activate
ADDSTOCK.Show vbModeless


error1:
End Sub
[\CODE]

The closing code tag is [/code]

Please Login or Register  to view this content.