Például így lehet:

Sub Muveletek()
    Dim lap%, lapnev$, WS As Worksheet
    
    For lap% = 1 To Worksheets.Count
        Set WS = Sheets(lap%)
        lapnev$ = Sheets(lap%).Name
        Select Case lapnev$
            Case "első", "ötödik"
                WS.Range("B1") = WS.Range("A1") * 2
            Case "második", "negyedik"
                WS.Range("B1") = WS.Range("A1") / 2
            Case Else
                WS.Range("B1") = WS.Range("A1") * 1500
        End Select
    Next
End Sub

A lapok neve "első", "második", ... "ötödik".