Why Vba Code To Combine Multiple Spreadsheets Into One Work On The Author’s Video BUT Does Not Work Here

[Turk182]

Sub Consolidate()

Dim LR, LC As Long
Dim sht As Worksheet
Dim wrk As Workbook

Set wrk = ActiveWorkbook

For Each sht In wrk.Worksheets
If sht.Name <> "Master" Then
sht.Select
LR = ActiveSheet.Range("A300").End(xlUp).Row
LC = ActiveSheet.Range("XFD1").End(xlToLeft).Column
ActiveSheet.Range(Cells(2, 1), Cells(LR, LC)).Copy
Sheets("Master").Select
LR_M = ActiveSheet.Range("A300").End(xlUp).Row + 1

MsgBox "Paste to Master"


End If

Next sht
End Sub

 

[gordsky]

what exactly do you mean by it doesnt work. Does it error somewhere? If so where?, Does it behave differently than expected? or does it simply do nothing?

 

[Turk182]

The issue has been resolved; thank you for replying though.?