extracting data and accessing multiple worksheets. want to avoid activate

[morsecode]

Hey Guys,
I have a workbook containing several worksheets(14 to be exact). Each worksheet contains data in a standard tabular format(as in column A is for name, column B is for type and so on)

I'm working on a project which requires me to read a set of data row by row in one worksheet. Each row contains the first part of a value that I need to store, and then the name of the worksheet where the second part of the value is and the column in which I'll find it.
I have to get that second value and then add them together in a new worksheet.

Is there any way I can avoid activating the worksheets every time to get the value in a cell? Coz there are 14 sheets currently (more will be added in the near future) and activating the worksheets is rather inefficient and takes a lot of time.

Thanks.

 

[Trevor G]

Welcome to the forum morsecode,

If its slow try switching the application commands off, you don't need to necessarily activate each worksheet.

Sub nmss()
'Turn warning off, remember to turn them back on after
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.DisplayAlerts = False
End With
Dim ws As Worksheets
For Each ws In Sheets
'With the extra code here
Next ws
'Turn warnings back on
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.DisplayAlerts = True
End With
End Sub

 

[morsecode]

That does it!!!
Thanks for the reply.

 

[Trevor G]

Happy to help and pleased to read you have a solution.