Fejlbesked ved klik på knap

Hej
Hvad med: If (det rigtige ark navn) B1 = "" Then
mgsbox "Du mangler at indtaste......."

Hmmm, måske...

Skal syntaksen så være som denne :
--------------------------------------
Sub Udskriv_ark1_Klik()

If ark1.b1 = "" Then
mgsbox "Du mangler at indtaste......."

else

Application.ScreenUpdating = False
    Sheets("ark1").PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True



End Sub

Hej tgl

Sry har været væk på ferie.
Ja umiddelbart ser det rigtigt ud

MVH
ups

Får denne compile error : Expected Then or Goto

--------------------
Kode :

Sub Udskriv_ark_Klik()

If Order1-3.b1 = "" Then
mgsbox "Du mangler at indtaste......."

Else

Application.ScreenUpdating = False
    Sheets("Ordrer1-3").PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True

End Sub

Hej tgl

Hvis dette ikke er løst endnu, så virker denne makro jeg har tilknyttet en knap

Sub Makro2()
'
' Makro2 Makro
'

'
Range("B1").Select
If ActiveCell = "" Then
MsgBox "Du mangler at indtaste værdi i B1"
Else

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End If
       
End Sub

Håber det løser problemet

Ønsker du flere celler undersøgt kan du bruge Or eller And

MVH
ups

Jeps, det virker. :-)

Et svar og point er på vej.

Et svar ;-)