3シート構成のファイルがあります。
sheet1はデータシート　A1セルに氏名を入力します。
2行目は項目行でA2セル＝氏名　B2＝性別　A3〜A100まで実際の氏名があり、B3〜B100までは性別となっています（氏名数は毎月変動します）。
Sheet2は女性用アンケート案内シート（アンケート項目は10個）、
Sheet3は男性用アンケート案内シート（アンケート項目は7個）
sheet1のA1セルにA3以降の氏名を順々に入力して女性の場合はsheet2を、男性の場合はsheet3の案内を作成の上、すべてを新規保存します（sheet2�Asheet3のA1セル＝sheet1のA1セルとしており、新規保存の際、シート内すべての計算式を消して値のみ保存をする）。ファイル名は「sheet1のA1セル（氏名）」として指定のフォルダに全員分のアンケートを保存しています：指定フォダ:\Users\PCuser\Desktop\アンケート）。１件1件保存するのがつらいので、VBAを使ってやろうとして色々調べましたが、うまくいきません。ＶＢＡの記述をご教示ください。
　

Sub test()
    Dim ws As Worksheet, wsF As Worksheet, wsM As Worksheet
    Dim c As Range
    Dim p As String, n As String
    
    p = CreateObject("wscript.shell").specialfolders("desktop") & "\アンケート\"
    
    Set ws = Worksheets("名簿")
    Set wsF = Worksheets("女")
    Set wsM = Worksheets("男")
    
    For Each c In ws.Range("A3:A100").SpecialCells(xlCellTypeConstants)
        n = c.Value
        ws.Range("A1").Value = n
        If c.Offset(, 1).Value = "F" Then
            wsF.Copy
        Else
            wsM.Copy
        End If
        ActiveWorkbook.SaveAs p & n & ".xlsx", xlOpenXMLWorkbook
        ActiveWorkbook.Close
    Next
    
End Sub