Saving Sheets In New File In Different Folders Depending On Cell Value

I'm actually using a macro that saves all the sheets from a workbook in new separate files, and save them in a specified folder.

Code:
Sub Estrazione_Schede()
Dim n As Long
Dim myNome As String
Dim myPath As String
myPath = "D:path"

[Code] ......

What I'm trying to do is that, instead of saving all the sheets in one folder, the macro would save them in different folders, depending on specific values in a specific cell of each sheet. I tried to modify the macro like this, but it doesn't seem to work properly:

Code:
Dim n As Long
Dim myNome As String
Dim myPathOne As String
Dim myPathTwo As String
myPathOne = "D:pathOne"

[Code] .....

With this code the macro ends up to check the condition only in the first sheet and then it copies all the sheet in the same folder.