Run time error 13 mistype. how do i stop this? please

[andylowekcx]

hi i am getting a run time error 13 mistype when i copy a cell from one workbook to another. The cell just contains an address.

on the workbook i am copying to it has some vba running. The code is used to take a name from cell D3 and rename the tab on the bottom.

i am not even adjusting this cell when the error occurs. excel keeps highlighing the a specific line.

bear in mind i am no expert and have tried to put code together using other peoples examples from online.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target = Range("D3") Then
ActiveSheet.Name = Range("D3").Value
Call SortSheets
Worksheets(Sh.Name).Activate
End If
End Sub[/CODE]

it works normally until i copy.

any help would be greatful.

thanks in advance

 

[VoG]

Perhaps

If Target.Address(False, False) = "D3" Then

 

[andylowekcx]

maybe i explained it poorly.

in cell D3 i am inputting a customer name and want this to also become the tab name for that sheet.

the address is stored in cell D5 and i am copying this from a list in another excel workbook.

it all works fine if i am typing the customer name and address into the cells but this is time consuming.

is it possible to explain what the new code will do or is doing?
just worried about the target.address.

Thanks for your speedy reply bet this is really basic stuff