Sorting Data Problem

[nward]

Hello

This is my first post here so I help someone can help me.

I have a excel workbook, with 100 sheets in. I need to collate certain cells of data (the same cells on each of the sheets) into a new sheet.

I look forward to hear ing back from you!

Many thanks

Nick

[rwgrietveld]

Nick welcome,
This is possible.

Certain Cells

, what are the criteria?

[nward]

hello

Thank you for the reply

Each of the sheets has a small table on. I need the data from

A3
B3
L1
L3

& if possible the title of the sheet

the data is exactly the same on each sheet, and I need to collate it onto a new sheet.

Again thank you for your help!

[nward]

here is a cut down version of the file, maybe it will help to make sense of what im after

THANK YOU!

[rwgrietveld]

Sub collect()
Dim Ws As Worksheet
Dim WsCount As Long
Dim ColSheet As Worksheet
  Set ColSheet = Worksheets("Sheet1")
  WsCount = 2
  For Each Ws In Worksheets
    If Ws.Name <> "Sheet1" Then
      ColSheet.Cells(WsCount, "A").Value = Ws.Range("A3")
      ColSheet.Cells(WsCount, "B").Value = Ws.Range("B3")
      ColSheet.Cells(WsCount, "C").Value = Ws.Range("L1")
      ColSheet.Cells(WsCount, "D").Value = Ws.Range("L3")
      ColSheet.Cells(WsCount, "E").Value = Ws.Name
    End If
    WsCount = WsCount + 1
  Next
End Sub

[nward]

Thank you

Works perfectly, just what i needed!