VBAエラー csv保存でファイル破損する際の解決法

前提・実現したいこと

VBAで転換マクロツールを創っています。
csvに出力する機能を本体モジュールとは別のモジュールで試して動作確認したため、
別モジュールと本体のモジュールを統合させた所、以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

'test.csv'にアクセスできません。ファイルが破損しているか、応答しないサーバーにあるか、読み取り専用に設定されています。

実行時エラー'1004':
'SaveAs'メソッドは失敗しました:_'Worksheet'オブジェクト

該当のソースコード

VBA
1Private Sub btnGetFilePath() 'ファイル選択ダイアログモジュール
2
3    Dim fType As Variant
4    Dim fPath As Variant
5
6'※選択できるファイルの種類はエクセルファイルのみ
7    fType = "Microsoft Excelブック,*.xls?" '※
8
9'ファイル参照ダイアログの表示
10    fPath = Application.GetOpenFilename(fType, , "") 'fType = fPath。
11    Debug.Print fPath
12    If fPath = False Then
13'ダイアログでキャンセルボタンが押された場合は処理を終了します
14       Exit Sub 'Endで強制終了はよろしくない
15    End If
16
17    Dim Target As Workbook '///コンバートモジュール
18    Set Target = Workbooks.Open(fPath)
19
20    'これをセル抜き出しから数値抜出に変更⇔循環小数エラーの解決｡
21    Target.Sheets(1).Range("G2").Copy ThisWorkbook.Sheets(2).Range("A2")
22    Target.Sheets(1).Range("H2").Copy ThisWorkbook.Sheets(2).Range("A3")
23    
24    '数式から数値に変換、yyyymmdd変換、半早のスケジュール登録して完成。
25
26     Target.Close '※開いたブックは閉じておく
27     Set Target = Nothing '念のため、変数開放
28'///コンバートモジュール
29
30Dim sh As Worksheet 'csv保存モジュール
31Set sh = Worksheets(2)
32sh.SaveAs Filename:="C\Wrok\出力先\test.csv", FileFormat:=xlCSV
33
34'csv保存モジュール
35
36End Sub

試したこと

Dim sh As Worksheet 'csv保存モジュール　以下のコードが、
以前指摘して頂いたアクティブ前提の創りになっていることが原因かと思い、
sh.ActivateのコードをDim sh As直下に挿入したのですが、実行時エラー'91'に変わるだけでした。
解決方・考え方、等、おわかりになればご教授願えませんでしょうか。