Can anyone figure this code problem please

Giganews Newsgroups
Subject: Can anyone figure this code problem please
Posted by:  simonsmith (simonsmith.280gmn_1147968605.7031@excelforum-nospam.com)
Date: Thu, 18 May 2006

It comes up with runtime error 13
Someone very kindly did this for me (because I dont know VBA) but cant
get hold of him to help fix it. It chokes on the P5 thing when it
should be looking at cell P5 then going to the sheet named in that
cell
Set sh = Worksheets(sh.Range("p5"))

Cheers

Simon

' Dim sh as Worksheet, sh2 as Worksheet
Dim strSheetName As String
strSheetName = Cells(5, 16).Value

Dim i As Long, j As Long
Dim rng As Range, cell As Range
Set sh = Worksheets("sheet1")
Set sh1 = Worksheets("Compiler")
j = 1
Do While sh.Name <> sh1.Name
Set rng = sh.Range(sh.Range(sh.Range("p3")), _
sh.Range(sh.Range("p4")))
i = 0
For Each cell In rng
i = i + 1
sh1.Cells(i, j).Value = cell.Value
Next
j = j + 1
Set sh = Worksheets(sh.Range("p5"))
'(sh.Range("P5"))
Loop
sh1.Activate
Range("p5").Select
End Sub

--
simonsmith
------------------------------------------------------------------------
simonsmith's Profile:http://www.excelforum.com/member.php?action=getinfo&userid=34235
View this thread:http://www.excelforum.com/showthread.php?threadid=543360

Replies