message box popup with variable

[rickmeister]

Dear,

I have the following code in my macro

Set findRNG = sheetje.Range("B1").Find(What:="POPU*Virtual")
'Search next value
Set findRNG2 = sheetje.Range("B1").Find(What:="DO_POPU")


However, I would like to create at the beginning of the report ( before running the macro) to pop up a window message box
asking for which domain the macro need to be run ( in this case POPU), the domain is always 4 digits long

in other words I should need to create a variable in my macro which would need to be completed in the message window.

Could someone help me out?

Thanks a lot!

Rickmeister





I have tried the following but got an error:


Dim VariableDomainName As String

VariableDomainName = InputBox("Domain", "Enter the Domain name", "")

'8A: Find "Column number" on the sheet
Set findRNG = sheetje.Range("B1").Find(What:=VariableDomainName * "Virtual")
'Search next value
Set findRNG2 = sheetje.Range("B1").Find(What:="DO_" & "VariableDomainName")

[protonLeah]

Try:
Set findRNG = sheetje.Range("B1").Find(What:=Trim(VariableDomainName) &"*Virtual")