Search results

Try adding this where you are deleting picture:- For Each sPic In ActiveSheet.Shapes If InStr(1, sPic.Name, "picname") <> 0 Then pic.Delete Next sPic Derek

What are you looking to get help with ?

Have a look at:- http://www.ozgrid.com/forum/showthread.php?t=177045 There adding the following code before the TempWB.Close line fixed the problem. RangetoHTML = Replace(RangetoHTML, "<!--[if !excel]>&nbsp;&nbsp;<![endif]-->", "")

Is there an blank line in your "Source:=TempWB.Sheets(1).UsedRange.Address," ?

For the forum can you post your solution ?

Thanks Debaser Code working now. I also had to change MyRange slightly by adding Set Table1 = ActiveSheet.ListObjects("MyRange") into the code Derek

Try this :- Sub TabNameToB3() Dim SheetNames As String SheetNames = ActiveSheet.Name For J = 1 To ActiveWorkbook.Sheets.Count Sheets(J).Cells(3, 2).Value = Sheets(J).Name Next End Sub

Can you expand on the logic which gives you expected output ?

=Gradings!$A$2:$G$350

It refers to the Table called "Look_up_Table2" which is the data i am trying to send to Access

Access engine could not find the object MyRange

Getting better !, Still no data transfer now goes to ErrHandler after con.Execute Sql

Ok got that, Now error is on this line:- con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sDbFile & ""

Are they not the "Table" headers ?

No error msg just no data sent to Access. When i go to Fld1 it skips to onError then back to Fld2 then to onError and so on.

If it works / Does what you want does it matter if its correct or not ???

All help will be welcome fixing macro which is to transfer a Table called "Look_up_Table2" to Access, Error is in reading first field name.

Can you post your macro code for checking ?

The format of your names must be all the same.

Can you post a file please.

Try these :- =LEFT(A2,FIND(" ",A2,1)-1) =RIGHT(A2,LEN(A2)-FIND(" ",A2,1)) =MID(A2,SEARCH(” “,A2,1)+1,SEARCH(” “,A2,SEARCH(” “,A2,1)+1)-SEARCH(” “,A2,1)) For First name Surname Middle name.

Have you tried the "Text to Column button under Data Tab" ?

The posters like to move the goal posts !!

Set up Dropbox on your computers ?