У меня есть пользовательские формы, сгруппированные по схожим свойствам, которые пользователь может изменить.вместо того, чтобы делать это изменение в подпрограмме инициализации каждой пользовательской формы, я хочу сделать это в подпрограмме, чтобы сократить код.
Я получаю ошибку 438
Вызываемый подпрограмма и вызывающая сторона находятся ниже,Я получаю ошибку времени выполнения 438 и не могу ее устранить.
Public Sub customizeCurrentUserForm(ByRef userFormName_Send As Object)
With userFormName_Send
.Width = ThisWorkbook.canvasWidth
...
...
End With
End Sub
Private Sub UserForm_Initialize()
customizeCurrentUserForm (Me)
End Sub