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