FileCopy list of files to another folder

I'm trying to create a way for users to copy files based on check boxes.

Column A is linked with the checkboxes. If "TRUE" is found in column A - offset 6 on the right lists the path and file name. I would like to copy that file and move to C:\apps\print\

Sub pnt_list()

  Dim fs, a
  Dim hl As Hyperlink
  Dim fso As Object
  Dim SourcePath As String
  Dim dstPath As String
  Dim mf As Range
  
  SourcePath = ActiveCell.Offset(0, 6).Value
  dstPath = "C:\Apps\Print\"
  
  On Error Resume Next
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateFolder("C:\Apps\Print\")
  On Error GoTo 0
  
  For Each mf In ActiveSheet.Range("A4:A" & Cells(Rows.Count, "A").End(xlUp).Row)
  If mf = "TRUE" Then ActiveCell.Activate
  FileCopy ActiveCell.Offset(0, 6).Value, dstPath
  Next mf
End Sub

Also tired FileCopy sourcepath, dstpath

Creating the folder is working as I expected. I think the problem is the source path or how excel translates the link in the cell. The sourcepath is showing blank but I know I'm on the correct cell with the file listed that I am trying to copy to c:\apps\print\

Sub pnt_list()

  Dim fs, a
  Dim FSO
  Dim sFile As String
  Dim sSFolder As String
  Dim sDFolder As String
  Set FSO = CreateObject("Scripting.FileSystemObject")
  
  On Error Resume Next
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateFolder("C:\Apps\Print\")
  On Error GoTo 0
    
  Dim sc As Range
  For Each sc In ActiveSheet.Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row)
  If sc.Value = True Then
  sc.Offset(0, 7).Select
'This is Your File Name which you want to Copy
  sFile = ActiveCell.Value
'Change to match the source folder path
  sSFolder = ActiveCell.Offset(0, -1).Value
'Change to match the destination folder path
  sDFolder = "C:\Apps\Print\"
''Checking If File Is Located in the Source Folder
'  If Not FSO.FileExists(sSFolder & sFile) Then
''Copying If the Same File is Not Located in the Destination Folder
'  ElseIf Not FSO.FileExists(sFile) Then
  FSO.CopyFile (sSFolder & sFile), sDFolder, True
  Else
  End If
  Next sc
  
End Sub

Got it!