السلام عليكم اخواني لدي مشكله في كتابة الاسم
وبضل يعطيني new2 new3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
lr = Sheets(3).Range("d" & Rows.Count).End(xlUp).Rows.Value
Sheets("new").Select
Sheets("new").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = lr
Sheets(Sheets.Count).[c3].Value = lr
End If
End Sub