Soru Sheets("Sheet2").Select hatası

[zozotr]

Merhaba üstadlar;


Private Sub CommandButton2_Click()
Dim PrintFile As String
PrintFile = Environ("USERPROFILE") & "\Desktop\" & _
Range("B22").Value & " - " & Range("D2").Value & " - " & Range("B4").Value
Sheets("Sheet2").Select
ActiveSheet.PageSetup.PrintArea = "A179"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=PrintFile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub


Bu kod bir bilgisayarda sorunsuz çalışıyor. Fakat başka bilgisayara dosyayı atınca :
Sheets("Sheet2").Select
hatası veriyor. Sorun neden kaynaklı anlayamadım.
Yardımcı olursanız .çok memnun olurum

 

[dEdE]

Hata mesajını görmeden tahmin yoluyla yanıtlayalım. Sayfanın adı "Sheet2" değil de "Sayfa2" olabilir mi? İngilizce/Türkçe farkına dikkat etmek lazım. Ayrıca, hata mesajını paylaşırsanız yanıtlamak daha kolay olur.
Profilinizde, Excel dili yazılmamış. Düzeltmenizi öneririm.

 

[zozotr]

Sayın dEdE cevap için teşekkür ederim.

Yukarıdaki kod bir bilgisayarda sorunsuz çalışıyor. Fakat diğer bilgisayara atınca çalışmıyor.
Bilgisayarların her ikisi de Ofis 2007 çalıştırıyor. Her ikisi de Windows 10.
Kodu çalıştırmayan bilgisayarda Visual Basic kısmında kodu çalıştır dediğimde
Sheets("Sheet2").Select
bu satırı sarı olarak işaretliyor.

İlginiz için teşekkür ederim.