Edit Question - KnowledgeHub

Title Body

I have found many resources on the internet that do almost what i want to do, but not quite.I have a named range "daylist". For each day in the dayList, i want to create a button on a user form that will run the macro for that day. I am able to add the buttons dynamically but dont know how to pass the daycell.text from the named range, to the button, to the event handler, to the macro :S Heres the code i have to create the user form: Sub addLabel() ReadingsLauncher.Show vbModeless Dim theLabel As Object Dim labelCounter As Long Dim daycell As Range Dim btn As CommandButton Dim btnCaption As String For Each daycell In Range("daylist") btnCaption = daycell.Text Set theLabel = ReadingsLauncher.Controls.Add("Forms.Label.1", btnCaption, True) With theLabel .Caption = btnCaption .Left = 10 .Width = 50 .Top = 20 * labelCounter End With Set btn = ReadingsLauncher.Controls.Add("Forms.CommandButton.1", "runButton", True) With btn .Caption = "Run Macro for " & btnCaption .Left = 80 .Width = 80 .Top = 20 * labelCounter ' .OnAction = "btnPressed" End With labelCounter = labelCounter + 1 Next daycell End Sub To get around the above issue i currently prompt the user to type the day they want to run (e.g. Day1) and pass this to the macro and it works: Sub B45runJoinTransactionAndFMMS() loadDayNumber = InputBox("Please type the day you would like to load:", Title:="Enter Day", Default:="Day1") Call JoinTransactionAndFMMS(loadDayNumber) End Sub Sub JoinTransactionAndFMMS(loadDayNumber As String) xDayNumber = loadDayNumber Sheets(xDayNumber).Activate -Do stuff End Sub So for each of my runButtons, it needs to display daycell.text, and run a macro that uses that same text

Tags (comma-separated) Cancel