VBA works on step through, but not when I run

OK, so I'm testing some code. It works to a point on step through. It's a loop with a lot of data so I can't step through it all. However when I want to carry out a test run the code doesn't execute. I can't see why. Any help greatly appreciated. Here is the code.

Sub SplitDataToUniqueWorkBook()
Dim rCl As Range, rRng As Range
Dim fName As String, SvPath As String
Dim Mth As Integer
Dim LR As Long
Dim wsData As Worksheet
Dim rngData As Range


MsgBox "Please select a folder to save the completed files"
Application.FileDialog(msoFileDialogFolderPicker).Show
SvPath = CurDir & "\"
Mth = InputBox("Enter the current reporting month", "Reporting month entry")
With Sheets("Data")
    .Range("AJ1").EntireColumn.Delete
    .Range("A4").CurrentRegion.Columns(25).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet4.Range( _
       "AJ4"), Unique:=True
       
Set rRng = .Range(.Cells(5, 36), .Cells(.Rows.Count, 36).End(xlUp))
End With
For Each rCl In rRng
fName = rCl.Value
Sheets("Referrals").Range("A4").CurrentRegion.Clear
With Sheets("Data")
.Range("AH5").Value = rCl.Value
.Range("A4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=.Range("AH4:AH5"), CopyToRange:=Sheets("Referrals").Range("A4"), Unique:=False
End With
ThisWorkbook.Sheets(Array("Source of Referral", "GP Referrals", "Referrals")).Copy


ActiveWorkbook.SaveAs SvPath & fName & " - M" & Mth & " .xlsx", _
    FileFormat:=51, CreateBackup:=False
ActiveWorkbook.Close True
Next rCl
End Sub

Re: VBA works on step through, but not when I run

For clarity the code doesn't like this line:

SvPath = CurDir & "\"

Or this line:

Mth = InputBox("Enter the current reporting month", "Reporting month entry")

Both of these lines run when I step through although I haven't got to the point of actually saving a workbook in a step through. Therefore I'm focusing on this line:

ActiveWorkbook.SaveAs SvPath & fName & " - M" & Mth & " .xlsx", _
    FileFormat:=51, CreateBackup:=False

As being the culprit. Any help?

Re: VBA works on step through, but not when I run

Thanks for your help. Unfortunately that doesn't execute either. This is highlighted when I try to run it.

SvPath = .SelectedItems.Item(1) & Application.PathSeparator Else Exit Sub

Re: VBA works on step through, but not when I run

Quote from NoSparks;799592

How do you initiate a test run ?
What happens if you put STOP as the first line of code in the sub ?

I am pressing Run in the script window. No buttons or whatever. Not heard about putting STOP as the first line of code before. I'll try it. For info though, how do you think that might help?

Re: VBA works on step through, but not when I run

An update on this. I have taken it off the network at work and run it on a standalone laptop. It works for a about 4 or 5 loops, (there are 91), and then crashes at the point where I am trying to save the workbook. Despite it having previously saved 4 or 5 other workbooks in the loop.

Could this be some kind of a storage issue or permissions? I'm baffled. Why would it work in 4 or 5 cases, then crash? I'm going to have to do this manually now which is going to be very annoying.

Re: VBA works on step through, but not when I run

OK, apologies to anyone interested. The save issue was because one of the fName strings had a "/" character in it meaning it wouldn't save.