i have seen some strange code what is it for?

[bhandari]

a = (Target.Row - 11) / 3

Mya i know what is it for?

 

[bhandari]

On Error Resume Next
Set TBA = ActiveSheet.Shapes("TBA" & a)
Set TBB = ActiveSheet.Shapes("TBB" & a)
Set TBC = ActiveSheet.Shapes("TBC" & a)
Set TBD = ActiveSheet.Shapes("TBD" & a)
Set TBE = ActiveSheet.Shapes("TBE" & a)
Set TBF = ActiveSheet.Shapes("TBF" & a)
Set TBR = ActiveSheet.Shapes("TBR" & a)
Set TBL = ActiveSheet.Shapes("TBL" & a)

 

[JLGWhiz]

a = (Target.Row - 11) / 3

The above appears to be part of worksheet event code and it is initializing the variable 'a' with a vaule derived from the row number where the event took place (cell value change or selction change) minus eleven and then that value divided by three.

The example in post #2 is using the Set method of initializing several object variables (looks like might be text boxes) as shapes. The 'On Error Resume Next' allows the code to continue if it cannot find one or more of the text boxes. There should be a subsequent line of

On Error GoTo 0

to clear any error that does occur.

 

[bhandari]

Why he took 11 and 3 ?
If I replace something with number in the place of 11 and 3, nothing will change in my sheet everything works fine in sheet

 

[JLGWhiz]

Why he took 11 and 3 ?
If I replace something with number in the place of 11 and 3, nothing will change in my sheet everything works fine in sheet

The original question was what the code did. There is no way to determine why it was writen that way based on information provided in this thread. You would need to look at how the variable 'a' is used throughout the remainder of the code to understand the logic of why its value is calculated in the manner shown above.