関数呼び出し時の「プロパティは不正です」について

Question

VBAで関数を呼び出すときにプロパティは不正ですってなります
2つの関数を1つに結合すると発生しないのですが、なぜでしょうか？
上:エラーになる
下:通る

Sub modify_one(wb As Worksheet)
    On Error Resume Next
    Dim words() As String, dir As String
    Dim objFSO As New FileSystemObject
    With wb
        dir = objFSO.GetFileName(.Range("B18").Value)
       
        words = Split(dir, "_")
        rename words, .name
 
    End With
End Sub

'シートの修飾関数、引数の文字列はファイルを_で分解
Sub rename(words() As String, wbName As String)
    ' エラーが発生しても無視して処理を継続させる
    On Error Resume Next
    With Worksheets(wbName)
        'シート名。./()や同一名のシートがあるとエラーを吐くが無視してゴリゴリ進める
        .name = words(1) & "_" & words(2) & "_" & words(3) & "_" & words(UBound(words) - 4)
        'モード名
        .Range("D10").Value = words(1)
        .Range("D12").Value = Join(words, "")
        .Range("D14").Value = Right(words(UBound(words) - 4), 3)
    End With
End Sub

Sub modify_one(wb As Worksheet)
    On Error Resume Next
    Dim words() As String, dir As String
    Dim objFSO As New FileSystemObject
    With wb
        dir = objFSO.GetFileName(.Range("B18").Value)

        words = Split(dir, "_")
        Debug.Print (dir)
        Debug.Print (.name)
        'rename words, .name

        .name = words(1) & "_" & words(2) & "_" & words(3) & "_" & words(UBound(words) - 4)
        'モード名
        .Range("D10").Value = words(1)

        .Range("D12").Value = Join(words, "")
        .Range("D14").Value = Right(words(UBound(words) - 4), 3)
    End With
End Sub

Comments

[quzq]

具体的にどんなエラーメッセージでしょうか。

[ttyp03]

こちらでは再現しませんでした。ここに載せていないコードはないでしょうか？

[yuuskeccho]

上のコードでも特にエラーは発生しませんでした。
[F8]で一行ずつステップ実行をして、どの行でエラーが発生するか追記して下さい。

Answer 1

エラーが再現できません。
どのような文字列がA18セルに入っているのでしょうか？

コードを一通り見て、こうかな？というのを書いてみました。
読みながら、すごく回りくどい作業手順だなという印象です。

Sub test()
    Worksheets("Sheet1").Range("A18").Value = "C:\Users\hiraigumit\Documents\" & "aaa_1.xlsx"
    
    Set_SheetRename Worksheets("Sheet1").Range("A18")
End Sub

Function Modify_one(s As String) As String
    i = InStrRev(s, "\")
    Modify_one = Mid(s, i + 1)
End Function

Sub Set_SheetRename(c As Range)
    Dim v As Variant
    
    v = Split(Modify_one(c.Value), "_")
    words(UBound(v)) = words(UBound(v)) - 4
    
    With c.Worksheet
        .Name = Join(v, "_")
        .Range("D10").Value = v(LBound(v))
        .Range("D12").Value = Join(v, "")
        .Range("D14").Value = Right(v(UBound(v)), 3)
    End With
End Sub

Answer 2

以下の様にしてみて下さい。

  Call rename(words, .name)

Callステートメント

それでも同じエラーなら、渡すパラメータの型は一致するように変換して下さい。

それから、ソースの先頭で、Option Explicitを指定していないようでしたら、しておきましょう。
Option Explicitって何？