This function checks a path to ensure it has a trailing path seperator, and that the path gets created if it doesn't exist. Two arguments to set, the path to the folder, then True if you want the folder created. I tried to implement it within your existing code, and it created a folder Named "P2P User Folder" on my C:\ drive, and saved 2 csv files into it. You may want to use SaveCopyAs instead of SaveAs depending on what your doing.


[vba]
Public Function fCheckPath(ByRef FolderPath As String, _
Optional ByVal CreatePath As Boolean = False) As String
Dim s() As String
Dim d As String
Dim i As Integer
If CreatePath Then
'If they supplied an ending path seperator, cut it for now
If Right$(FolderPath, 1) = Chr(92) Then _
FolderPath = Left$(FolderPath, Len(FolderPath) - 1)

s = Split(FolderPath, Chr(92))

d = s(0)
For i = 1 To UBound(s)
d = d & Chr(92) & s(i)
If Len(Dir(d, vbDirectory)) = 0 Then MkDir d
Next i
End If

If Not Right$(FolderPath, 1) = Chr(92) Then _
fCheckPath = FolderPath & Chr(92): Exit Function
fCheckPath = FolderPath
End Function

Sub Master()
'
' Master Macro
' Macro recorded 4/20/2006 by CompuCat
'
' Keyboard Shortcut: Ctrl+m
'
Dim szSavePath As String

Application.DisplayAlerts = False
Rows("1:1").Select
Range("F1").Activate
Selection.Delete Shift:=xlUp
Columns("P:P").Select
Selection.Delete Shift:=xlToLeft
szSavePath = fCheckPath("C:\P2P User Folder", True)
ActiveWorkbook.SaveAs Filename:= _
szSavePath & "newuser.csv" _
, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
szSavePath & "chguser.csv" _
, FileFormat:=xlCSV, CreateBackup:=False
End Sub
[/vba]