main 시트의 정열된 시트이름을 참조하여 각 시트의 특정위치의 값을 정열하여가져 올려면 어떻게 해야 하나요? 세로로 정열된 시트이름 옆 가로로 원하는 각 시트의 원하는 cell위치의 값을 가져 오고 싶은데요...
Dim sCnt As Integer
Dim i As Integer
vRng = 2
sCnt = ActiveWorkbook.Worksheets.Count
For i = 2 To sCnt
If Sheets(i).Visible Then
Sheets("main").Range("a" & vRng) = Sheets(i).Name
Sheets("main").Range("b" & vRng) = Sheets(i).Range("b1")
vRng = vRng + 1
End If
Next
End Sub