回答編集履歴

誤字の修正

2019/04/27 08:51

投稿

スコア2167

answer CHANGED Viewed

@@ -8,7 +8,7 @@
     sFullPath = Replace(sFullPath, "XXXXX", sId)
     Worksheets("Sheet1").Hyperlinks.Add _
-            Anchor:=Worksheets("Sheet2").Range("V2"), _
+            Anchor:=Worksheets("Sheet1").Range("V2"), _
             Address:=sFullPath, _
             TextToDisplay:=sId