Hi Mark
Thanks heaps for helping me out. I have tweaked the code which you provided, to suit my needs and I have it all set and ready. Everything seems to be nice and working.
However, I wanted to ask you about the IF() condition used in the macro to check for the criteria.
It seems that the macro does not like if the cell value (which is checked with the sheetname) is entered in lowercase characters. The Sheetnames in "Dumps.xls" are alphanumeric and uppercase. When I enter the code in lowercase in the specific cell of "Channel Master.xls", the macro does not work. However it works when the alphanumeric code I enter is uppercase characters ?
I suppose, this could be solved with the use of UCase() function but I do not know how to use this function.
I was thinking, you might want to see the code, which I tweaked and am using it to my needs:
Option Explicit
Sub Ex_Dumping()
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
Dim wksWorksheet As Worksheet
For Each wksWorksheet In Workbooks("Dumps.xls").Worksheets
If wksWorksheet.Name = ThisWorkbook.Worksheets("SS").Range("A4") Then
wksWorksheet.Range("A3:AJ1000").Copy ThisWorkbook.Worksheets("SS-DUMP").Range("A3")
Exit Sub
End If
Next
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Can you please help me with this case sensitivity problem ?
Mark, thanks for all your inputs.