I'm trying to create a piece of formatting code that is applicable to multiple UserForms when they initialise respectively. This is the code I have tried so far where FormatUserFormName is the dynamic string name of the UserForm that I am trying to apply the formatting code to.
I currently get Run-time error '438'. Object doesn't support this property or method.
Thanks all for your help in advance!
I currently get Run-time error '438'. Object doesn't support this property or method.
Code:
Public FormatFurnaceLocation As String
Public FormatFurnaceNumber As String
Public FormatUserFormName As String
Public Sub HideFurLocDetails()
On Error Resume Next
Dim BTNFurLocPullPart As Object
Dim LBLFurLocHeatNumber As Object
Dim LBLFurLocHeatNumberLBL As Object
Dim LBLFurLocTimer As Object
Dim LBLFurLocTimerLBL As Object
Dim FormatUserForm As Object
Dim Location As Integer
Set FormatUserForm = ThisWorkbook.VBProject.VBComponents(FormatUserFormName)
For Location = 65 To 88
Set BTNFurLocPullPart = FormatUserForm.Controls("BTNFur" & FormatFurnaceNumber & "Loc" & FormatFurnaceLocation & "PullPart")
Set LBLFurLocHeatNumber = FormatUserForm.Controls("LBLFur" & FormatFurnaceNumber & "Loc" & FormatFurnaceLocation & "HeatNumber")
Set LBLFurLocHeatNumberLBL = FormatUserForm.Controls("LBLFur" & FormatFurnaceNumber & "Loc" & FormatFurnaceLocation & "HeatNumberLBL")
Set LBLFurLocTimer = FormatUserForm.Controls("LBLFur" & FormatFurnaceNumber & "Loc" & FormatFurnaceLocation & "Timer")
Set LBLFurLocTimerLBL = FormatUserForm.Controls("LBLFur" & FormatFurnaceNumber & "Loc" & FormatFurnaceLocation & "TimerLBL")
BTNFurLocPullPart.Visible = False
LBLFurLocHeatNumberLBL.Visible = False
LBLFurLocHeatNumber.Visible = False
LBLFurLocTimerLBL.Visible = False
LBLFurLocTimer.Visible = False
Next Location
End Sub
Thanks all for your help in advance!