Userform to enter data into different columns depending on which shape calls the userform

[danbates]

Hi,

I have six shapes on my worksheet labelled:
Clean_0
Clean_1
Clean_2
Clean_3
Clean_4
Clean_5

What I would like is if Clean_0 is selected on the worksheet, my userform enters the data in columns A,B,C & D.
If Clean_1 is selected it enters the data in columns E,F,G & H and basically so on with the others.

Any help would be appreciated.

Thanks

Dan

 

[danbates]

I've managed to do it:

 Dim CallingShapeName As String

 CallingShapeName = ActiveSheet.Shapes(Application.Caller).Name
 
 Select Case Application.Caller
 
    Case "Clean_0"
    
        Call Clean_0
    
    Case "Clean_1"
        
        Call Clean_1
    
    Case "Clean_2"
        Call Clean_2
                      
    Case "Clean_3"
        Call Clean_3

    Case "Clean_4"
        Call Clean_4

    Case "Clean_5"
        Call Clean_5
                      
  End Select

with thanks from this website:

https://www.excelforum.com/excel-programming-vba-macros/1308776-using-select-case-with-shapes.html

Thanks

Dan