I got this macro and I need to use it on every file I am working on and every worksheet of it, but now it's going only for worksheets named "Alessandro Bourlot". How can I change it? What should I substitute to this Range("AlessandroBourlot[[#Headers],[Colonna1]]"). _ ?
Sub Macro8()
'
' Macro8 Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+V
'
Selection.Copy
ActiveCell.Offset(300, -2).Range("AlessandroBourlot[[#Headers],[Colonna1]]"). _
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="&", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), _
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:= _
True
ActiveCell.Offset(0, 3).Range("AlessandroBourlot[[#Headers],[Colonna1]]").Select
Selection.Copy
ActiveCell.Offset(-300, 0).Range("AlessandroBourlot[[#Headers],[Colonna1]]"). _
Select
Sub Macro8()
'
' Macro8 Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+V
'
Selection.Copy
ActiveCell.Offset(300, -2).Range("AlessandroBourlot[[#Headers],[Colonna1]]"). _
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="&", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), _
DecimalSeparator:=".", ThousandsSeparator:=",", TrailingMinusNumbers:= _
True
ActiveCell.Offset(0, 3).Range("AlessandroBourlot[[#Headers],[Colonna1]]").Select
Selection.Copy
ActiveCell.Offset(-300, 0).Range("AlessandroBourlot[[#Headers],[Colonna1]]"). _
Select