Ciao

Prova con questo codice (sicuramente da migliorare per le tue esigenze) da inserire nel Modulo del Foglio interessato

`Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C7:P1580")) Is Nothing Then
  If Cells(Target.Row, 2) = "" Then
    MsgBox "Occorre mettere la data"
    Exit Sub
  End If
End If
End Sub`

Fai  sapere. Ciao,

Mario

Ciao,

Quando elimini la riga non ti serve fare alcuna verifica, quindi non ti serve lanciare la macro Worksheet_Change.

Per fare ciò secondo me ti basta aggiungere il comando

Application.EnableEvents = False

Dopo la riga

Application.ScreenUpdating = False

Ovvero cominciando la macro così:

Sub eliminarigaselezionata_fogli()
Dim n As Long
Dim x As Long
Dim avviso As String
Dim nome1 As String
Application.ScreenUpdating = False
Application.EnableEvents = False
nome1 = ActiveSheet.Name
[...]

HO provato non mi dà più errore durante l'eliminazione riga