Try - maybe I understood correctly ... maybe:
Without the "Select Case"
Option Explicit
Sub three_on_the_left()
Const cCnstntC = "C51"
Const cCnstntE = "E31"
Const zifr As Long = 3
Const ofst As Long = 3
Dim nmbr
nmbr = Left$(Trim(Range(cCnstntC).Value), zifr) ' 'Range' from which sheet ?
If Not IsNumeric(nmbr) Then MsgBox "Ouh, SMS !!!": Exit Sub
nmbr = CLng(nmbr)
If nmbr < 1 Then MsgBox "Ouh, SMS x 1,000 !!!": Exit Sub
nmbr = nmbr + ofst
''DINERO EN TEXTO
'Select Case Left$(Range("C51").Value, 3)
' Case "1"
' Sheets("MESESPAST").Range("Q04").Copy
' Sheets("RECIBO").Range("E31").PasteSpecial xlPasteValues
'End Select
With Sheets("RECIBO")
.Range(cCnstntE).Value = Sheets("MESESPAST").Range("Q" & CStr(nmbr)).Value 'DINERO EN TEXTO
End With
End Sub
Bookmarks