ricetime123
New Member
- Joined
- May 17, 2018
- Messages
- 2
Hi,
Do you know how to create a new word doc under the subfolder in NewR folder? This is what I have so far. I was able to create a subfolder under NewR folder, but is currently trying to create a word doc in the subfolder. Any help will be appreciated. thanks
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim NewR As String
NewInvest = Left((Cells(Selection.Row, 14).Value), 8)
NewR = "\\svr\DATA\STAFF" & NewStaff & "\X" & (Cells(Selection.Row, 1).Value)
If Target.Row = ActiveCell.Row And Target.Column = 8 Then
If Dir(NewR, vbDirectory) = "" Then
MkDir NewR
Else
End If
End If
End Sub
Do you know how to create a new word doc under the subfolder in NewR folder? This is what I have so far. I was able to create a subfolder under NewR folder, but is currently trying to create a word doc in the subfolder. Any help will be appreciated. thanks
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim NewR As String
NewInvest = Left((Cells(Selection.Row, 14).Value), 8)
NewR = "\\svr\DATA\STAFF" & NewStaff & "\X" & (Cells(Selection.Row, 1).Value)
If Target.Row = ActiveCell.Row And Target.Column = 8 Then
If Dir(NewR, vbDirectory) = "" Then
MkDir NewR
Else
End If
End If
End Sub
